RichEdit, RTF, Leerzeile wird immer angehängt

[Ralf Meyer]

Hallo,

ich speichere formatierten Text (RTF) in eine Datenbank.
Zum Ändern ruf ich den RichEditor auf mit

Delphi-Quellcode:

  
Procedure SetRTFText(Const cRTFText : String );
  Begin
    Editor.Lines.Clear ;
    CurrText.Name := DefFontData.Name;
    CurrText.Size := 12 ;  
    Editor.Lines.Append( cRTFText );
  End ;

Im Editor steht der Cursor jetzt immer eine Zeile unter dem Text. Es wird somit automatisch eine neue Zeile angefügt.

Den Text hole ich mir beim verlassen raus über die folgende Funktion

Delphi-Quellcode:

Function GetRTFText : String ;
Var
  str : TStringStream ;
begin
  Result := '' ;
  Try
    Str := TStringStream.Create('') ;
    Editor.Lines.SaveToStream( Str );
    Result := str.DataString ;
  Finally
    str.Free ;
  End;

Ruft man den Editor x-mal auf, hat man auch x neue Leerzeilen im Text. (Sehr nervig).

Da ich nicht weiß ob der User vielleicht selber welche rein gemacht hat, kann ich nicht pauschal am ende alle Leerzeilen entfernen.

Hatte jemand schonmal so ein Problem? Ist mein Aufruf falsch?

Gruß
Ralf