Dividindo uma Sting e colocar em dois edites

Question

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 ente...

Ricardo Araujo · Answer

Pode colocar o exemplo que est� usando e detalha mais sobre o assunto?...

Romulo Silva · Answer

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]

Eduardo Mendon�a · Answer

Teste e funcionou perfeitamente fiz umas mudan�as e ficou Perfeito. Obrigado  ...

F�rum Dividindo uma Sting e colocar em dois edites #479980