Doppelte Einträge aus ListBox entfernen

[Hador]

nicht in jedem fall.
Wenn z.B. 2 einträge entfernt werden, bringt auch downto nix.

Ich bastel dir sofort mal 'n code zusammen.

EDIT:

So sollte es gehen

Delphi-Quellcode:

while D1 < PCListe.Items.Count do
begin
  for D2 := (PCListe.Items.Count - 1) downto 0 do
  begin
    if (PCListe.Items.Strings[D1] = PCListe.Items.Strings[D2]) and (D1 <> D2) then
      PCListe.Items.Delete(D2);
  end;
  inc(D1);
end;