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