Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#7

Re: sowas wie Trim für TStrings?

  Alt 4. Mai 2005, 19:48
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
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat