Pasar datos de un RichEdit a otro RichEdit

[ecfisa]

Hola santiago14.

Código Delphi [-]
procedure CopiarRE(const Origen: TRichEdit; Destino: TRichEdit);
var
  Stream: TStream;
begin
  Stream:= TMemoryStream.Create;
  try
    Origen.Lines.SaveToStream(Stream);
    Stream.Position:= 0;
    Destino.Lines.LoadFromStream(Stream);
  finally
    Stream.Free;
  end;
end;

Saludos