RichEdit, RTF, Leerzeile wird immer angehängt

[himitsu]

OK, beim RTF-Code kommt Trim wirklich nicht sehr weit


Nja, es ist zwar immernoch eine Zeile zuviel dran, da sie in Lines nicht drinen ist und erst später angehängt wird, aber was soll's ... wenigstens wird sie nicht mehr

Delphi-Quellcode:

Function GetRTFText(C : TRichEdit) : String;
Var
  Str : TStringStream;
  i   : Integer;
Begin
  Result := '';
  Str := TStringStream.Create('');
  Try
    i := C.Lines.Count;
    While (i > 0) and (C.Lines[i - 1] = '') do Begin
      C.Lines.Delete(i - 1);
      i := C.Lines.Count;
    End;
    C.Lines.SaveToStream(Str);
    Result := Str.DataString;
  Finally
    Str.Free;
  End;
End;

eventuell auch
While (i > 0) and (Trim(C.Lines[i - 1]) = '') do Begin S := GetRTFText(Editor);

für alle, welche jetzt nicht ganz verstehen, was das Problem ist:
[pre]man hat dieses
Zeile*
Zeile*
Zeile

serialisiert wäre das eigentlich
Zeile*Zeile*Zeile

durch derartige Billigcodes
for i := 0 to Count do
result := Zeile[i] + ZeilenWechsel;

wird allerdings das draus
Zeile*Zeile*Zeile*

was diesem entspricht
Zeile*
Zeile*
Zeile*

deserialisiert wäre es dann
Zeile*
Zeile*
Zeile*
leerzeile

und nach erneutem serialisieren kommt dann das raus
Zeile*Zeile*Zeile**

wieder deserialisiert dann
Zeile*
Zeile*
Zeile*
leerzeile*
leerzeile

dann wieder
Zeile*Zeile*Zeile***

usw. ...




( * = Zeilenwechsel )[pre]


PS:
.Create gehört immer vor Try-Finally-.Free