Hi @ all.
Ich versuch gerade, mehrere Einträge auf einmal aus einer CheckListBox zu löschen. Aber es klappt nicht, weil ich immer eine Meldung bekomme, der Listenindex überschreite das Maximum. Ich habe nun aber eigentlich schon dafür gesorgt, dass das nicht passieren dürfte, indem ich von der aktuellen Anzahl an Einträgen die Anzahl der zu löschenden nicht-angehakten Items abziehe (die ja dann praktisch im nächsten Durchlauf fehlen).
Delphi-Quellcode:
for i := 0 to CheckListBox1.Items.Count do
begin
if CheckListBox1.State[i] = cbUnchecked then UnCheckedItems := UnCheckedItems + 1;
end;
for i := 0 to CheckListBox1.Items.Count-UnCheckedItems do
begin
if CheckListBox1.State[i] = cbUnchecked then CheckListBox1.Items.Delete(i);
end;
Wieso bekomme ich immer noch diese Fehlermeldung?
C ya.