Sollte doch so funktionieren:
Delphi-Quellcode:
procedure TrimStrings(const Strings: TStrings);
var i: Integer;
begin for i := 0 to Strings.Count -1 do
Strings[i] := Trim(Strings[i]);
end;
PS: Text muß immer wieder neu generiert werden, daher
dürfte die einfache Variante auch die langsamste sein.
Die obengenannte Version kann man sicherlich noch etwas optimieren.
(nicht getestet...)