RichEdit, RTF, Leerzeile wird immer angehängt

[Tom]

Ich mache es so:

Delphi-Quellcode:

Stream : TMemoryStream;
Lines : TStringList; // Zum externen Speichern des Textes

// Text in Richedit einsetzen

Lines.SaveToStream( Stream);
Stream.Position := 0;
RichEd.Lines.LoadFromStream(Stream);


// Text aus Richedit auslesen

RichEd.Lines.SaveToStream( Stream );
Stream.Position := 0;
Lines.LoadFromStream( Stream );