Dividindo uma Sting e colocar em dois edites
Boa noite!
Queria um explicação de como Dividir uma String em duas e colocar em dois edites.
tem uma nome de um Advogado no Banco e quero separa o nome do Sobrenome.
Já vi um tutoriais mais não entendi porque tem uma '|' e tal e não consigo reproduzir aqui.
Queria um explicação de como Dividir uma String em duas e colocar em dois edites.
tem uma nome de um Advogado no Banco e quero separa o nome do Sobrenome.
Já vi um tutoriais mais não entendi porque tem uma '|' e tal e não consigo reproduzir aqui.
Eduardo Mendonça
Curtidas 0
Respostas
Ricardo Araujo
23/05/2014
Pode colocar o exemplo que está usando e detalha mais sobre o assunto?
GOSTEI 0
Romulo Silva
23/05/2014
procedure TForm1.btn_CopiarClick(Sender: TObject);
var
nome,
sob,sobrenome : String;
iPos : Integer;
begin
nome := Trim(Copy(label1.Caption,1,Pos(' ',label1.Caption)-1));
iPos := Pos(' ', label1.Caption);
sob := Copy(label1.Caption,iPos+1,length(label1.Caption));
sobrenome := Trim(Copy(sob,1,Pos(' ',sob)-1));
edit1.Text := nome;
edit2.Text := sobrenome;
end;[img]http://arquivo.devmedia.com.br/forum/imagem/298866-20140524-184957.png[/img]
var
nome,
sob,sobrenome : String;
iPos : Integer;
begin
nome := Trim(Copy(label1.Caption,1,Pos(' ',label1.Caption)-1));
iPos := Pos(' ', label1.Caption);
sob := Copy(label1.Caption,iPos+1,length(label1.Caption));
sobrenome := Trim(Copy(sob,1,Pos(' ',sob)-1));
edit1.Text := nome;
edit2.Text := sobrenome;
end;[img]http://arquivo.devmedia.com.br/forum/imagem/298866-20140524-184957.png[/img]
GOSTEI 0
Eduardo Mendonça
23/05/2014
Teste e funcionou perfeitamente fiz umas mudanças e ficou Perfeito. Obrigado
GOSTEI 0