Frage Listbox doppelte Eintraege loeschen.

[marabu]

Hallo lucius,

aufrufen musst du es mit: KillDuplicates(ListBox.Items);

Delphi-Quellcode:

procedure KillDuplicates(s: TStrings);
var
  iLow, iHigh: integer;
begin
  for iLow := 0 to s.Count - 2 do
    for iHigh := Pred(s.Count) downto Succ(iLow) do
      if s[iLow] = s[iHigh] then
        s.Delete(iHigh);
end;

marabu