doppelte elemente löschen

[xineohp]

moin,

wenn du eine Stringlist verwendest kannst du es auch einfacher haben: scha dir mal die Eigenschaft Duplicates an. (Einziger Nachteil ist, dass die Liste sortiert sein muss bzw. sortiert wird)

Delphi-Quellcode:

var SL: tstringlist;
begin
  SL := tstringlist.Create;
  SL.Sorted := true;
  SL.Duplicates := dupIgnore;
  SL.AddStrings( Listbox1.Items );
  Listbox1.Clear;
  Listbox1.Items := SL;
  SL.Free;
end;