Listbox Einträge vergl., bei Doppelbelegung einen Löschen

[Ginko]

Nach einer kleinen Änderung klappt es nun danke dir nahpets!

Delphi-Quellcode:

for i := listbox0.items.count DownTo 0 Do begin
  for k := i - 1 DownTo 0 Do begin
    if (i < listbox0.items.count)
    and (k < listbox0.items.count) then begin
      if listbox0.items[i][5] + listbox0.items[i][7]  + listbox0.items[i][9]
       = listbox0.items[k][5] + listbox0.items[k][7]  + listbox0.items[k][9] then begin
        listbox0.items.Delete(k);
      end;
    end;

vorher wurde der letzte Eintrag nicht berücksichtigt.
bernau deine Methode hab ich jetzt noch nicht getestet aber, trotzdem danke.