Probao sam da ovo odradim koristeci TStringStream i TMemoryStream, ali ono sto dobijam jeste kopiranje texta samo jednog RichEdita (prvog) u treci.
Ovo je kod koji sam koristio :
function TForm1.GetRTF(RE: TRichedit): string;
var
strStream: TStringStream;
begin
strStream := TStringStream.Create('');
try
RE.PlainText := False;
RE.Lines.SaveToStream(strStream);
Result := strStream.DataString;
finally
strStream.Free
end;
end;
i poziv sa :
procedure TForm1.Button1Click(Sender: TObject);
var
temp, temp2, temp3 : string;
begin
temp := GetRTF(RichEdit1);
temp2 := GetRTF(RichEdit2);
temp3 := temp + temp2;
RichEdit3.Text := temp3;
end;