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