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