Inhalt von TRichEdit ohne Verlust von DefAttributes kopieren

[shmia]

Dann hier noch eine weitere Variante:

Delphi-Quellcode:

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

Anwendung:

Delphi-Quellcode:

Query1.Edit;  // wir müssen im Edit-Mode sein
CopyRichEditLines(RichEdit1.Lines, DBRichEdit1.Lines);