moin
ich möchte aus einer ListBox doppelte elemente löschen...
ich hatte mir das so gedacht(vielleicht nicht das schönste...):
Delphi-Quellcode:
//anlegen
temp:=TStringList.Create;
//für alle elemente
while i<ListBox1.Items.Count-1
do
begin
//wenn neu
if temp.IndexOf(ListBox1.Items[i])=-1
//dann dazutun
then temp.Add(ListBox1.Items[i])
//sonst eins runterzählen
else dec(gesamt);
inc(i);
end;
//zurückübertragen
ListBox1.Items:=temp;
//anzahl anzeigen
Label1.Caption:=inttostr(gesamt);
temp.Free;
aber wenn ich nu öfter draufklicke werden es immer weniger....
aber eigentlich müssten es doch gleichviel elemente bleiben nach dem ersten mal
