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

[nahpets]

Hallo,

so, letzter Versuch

Delphi-Quellcode:

for i := listbox0.items.count - 1 DownTo 0 Do begin
  for k := i - 1 DownTo 0 Do begin
    if (i < listbox0.items.count - 1)
    and (k < listbox0.items.count - 1) 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;
  end;
end;