sowas wie Trim für TStrings?

[SirThornberry]

das abschließende "
" ergibt sich weil die Routine für "TStrings.Text" in einer schleife die zeilen hintereinander hängt und mit #13#10 abschließt:

Delphi-Quellcode:

result := '';
for i := 0 to Stringliste.Count - 1 do
  result := result + Stringliste.Strings[i] + #13#10;

dadurch wird eben selbst bei einer einzelnen zeile oder eben einem einzelnen buchstaben noch ein #13#10 angehängt. Du müsstest also die routine selbst schreiben

Delphi-Quellcode:

result := '';
for i := 0 to Stringliste.Count - 1 do
  result := result + Stringliste.Strings[i] + #13#10;
if Stringliste.Count > 0 then //es kann nur was entfernt werden wenn was da ist
  SetLength(result, length(Result) - 2)); //damit wird das letzte #13#10 entfernt