Concatenação

[Sr. Mendes - Inaldo]

Alguém pode me ajudar a concatenar dois TMemos.

Eu tenho um TMemo1 e um TMemo2, são de campos para observação, só que na hora da pesquisa eu coloquei pra aparecer só o TMemo1 voltando a observação digitada.

Bom, meu problema é o seguinte eu queria concatenar o TMemo2 com o TMemo1 para as observações digitadas no TMemo1 e TMemo2 aparecessem só no TMemo1.

Alguém pode me ajudar?

Desde já agradeço!

[Victor_DF]

Sr. Mendes - Inaldo...

Eu nunca usei um TMemo...

Mas sei que deve ter uma propriedade que manipule String, algo do tipo Memo1.Text.

Se tiver tenta colocar assim...

Memo1.Text:= Memo1.text + Memo2.text; // claro se tiver essa propriedade...

O sinal de '+' é usado para concatenar Strings, ai voce usa como quiser...

Espero ter ajudade...

falou abraço

Editado Julho 20, 2009 por Victor_DF

[Jhonas]

Mas sei que deve ter uma propriedade que manipule String, algo do tipo Memo1.Text.

Está quase certo.

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Text := Memo1.Lines.Text + Memo2.Lines.Text;
end;

abraço

[Victor_DF]

Opa...

Vlw a correção...

Abraço