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.