Hallo taktaky,
n < 0 entfernt die Zeichen am Ende jedes Strings:
Delphi-Quellcode:
procedure TruncateStrings(s: TStrings; n: Integer);
var
i: Integer;
begin
if n <> 0 then
for i := 0 to Pred(s.Count) do
if n < 0
then s[i] := Copy(s[i], 1, Length(s[i]) + n)
else s[i] := Copy(s[i], n + 1, MaxInt);
end;
Gute Nacht