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?