Hallo danke für die schnellen Antworten, also es klappt mit deiner Lösung fast, allerdings nur wenn ich 'o'
auf 4 ändere
Delphi-Quellcode:
if listbox0.Items.Count = 5 then
begin
o:=1;
repeat
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);
Inc(o);
until (listbox0.Items.Count <> 5) or (o = 4);
end;
ansonsten bringt er mir nen
Exception, das liegt aber denk ich mal daran, dass bei der Listbox der 'Index' bei 0
anfängt und der 'Count' normal bei 1.
Also 'o' ist ja die Indexnummer und bei 4 müsste der 'Count' auf 5 stehen, damit kein Fehler kommt, wenn ich mich nicht täusche.
Jedenfalls das Problem ist, dass der erste, der zweite und der letzte Wert nicht verglichen werden also nur wenn
wenn Idex[2] und Index[3] gleich sind wird eins gelöscht...