(Resolvido) Memos

[drshow]

Bom dia/tarde/noite, então eu estou tentando separar alguns dados no delphi, por exemplo eu coloco a lista e faço ele salvar em diferentes memos:  MEMO1(lista inteira/lista original):  [email protected]  Arlindo  [email protected]  Maisa  Eu uso um contador de linhas e faço ele ir pulando para salvar no memo2 apenas email e memo 3 apenas o nome ficando:  Memo2(email):  [email protected]  [email protected]  Memo3(nome):  Arlindo  Maisa  Agora eu queria colocar um memo4 para juntar os dois, pois no bloco de notas eles vem separador por linha eu queria um memo4 que ficasse:  Memo4(os dois juntos):  [email protected]/arlindo  Como faço para juntar o memo2 e o memo3 colocar uma separação "/" ?

[Jhonas]

fica assim

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
   memo4.Clear;
   for i := 0 to Memo2.Lines.Count-1 do
      begin
         memo4.Lines.Append(memo2.Lines.Strings(i)+'/'+
         memo3.Lines.Strings(i));
      end;
end;

 

obs: depois do strings use use chaves ....na edição esta sumindo o caracter

abraço