Acrescentar linhas de um memo em outro memo já com texto
Tenho um Memo q possui texto e gostaria de somar acrescentar outro texto q tem em outro memo tipo
Mensagem.Lines:=Mensagem.Lines+FrmCadManut.DBMemo2.Lines;
alguma coisa assim, mas não consegui achar como fazer, alguém pode me ajudar?
Mensagem.Lines:=Mensagem.Lines+FrmCadManut.DBMemo2.Lines;
alguma coisa assim, mas não consegui achar como fazer, alguém pode me ajudar?
Janete
Curtidas 0
Respostas
Motta
02/09/2005
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to (Memo1.Lines.Count-1) do
Memo2.Lines.Add(Memo1.Lines[i]);
end;
var i:integer;
begin
for i:=0 to (Memo1.Lines.Count-1) do
Memo2.Lines.Add(Memo1.Lines[i]);
end;
GOSTEI 0
Steve_narancic
02/09/2005
Mensagem.Lines.add(FrmCadManut.DBMemo2.Lines);
GOSTEI 0