Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#34

Re: Delete strings in ListBox

  Alt 13. Nov 2007, 21:44
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