Inhalt von TRichEdit ohne Verlust von DefAttributes kopieren

[Sharky]

Hai Heike,

meinst Du so etwas: ?

Delphi-Quellcode:

Procedure CopyRichEdit (aSource, aDestination : TRichEdit);
var
  RichStream : TMemoryStream;
begin
  RichStream := TMemoryStream.Create;
  try
    aSource.Lines.SaveToStream(RichStream);
    RichStream.Position := 0;
    aDestination.Lines.LoadFromStream(RichStream);
  finally
    RichStream.Free;
  end;
end;