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

[nahpets]

Hallo,

das wird mir zu kompliziert:

Delphi-Quellcode:

if listbox0.Items.Count = 5 then begin 
  for o := listbox0.Items.Count - 1 DownTo 1 do begin
    if (listbox0.Items[o][5] +  listbox0.Items[o][7] + listbox0.Items[o][9]) = 
       (listbox0.Items[o - 1][5] +  listbox0.Items[o - 1][7] + listbox0.Items[o - 1][9]) then 
         listbox0.Items.Delete(o); 
  end;
end;

Damit solltest Du doppelte Einträge wegbekommen. Mir ist bisher nicht klar geworden, wofür die Abfrage auf 5 oder sonstwieviele Einträge gut sein soll, sollen mindestens 5 Einträge in der Listbox überbleiben, auch wenn sie doppelt sind? Warum werden Doppelte nur entfernt, wenn mehr als 5 Einträge vorhanden sind?