CheckListBox - mehrere Einträge löschen

**HaCkAttaCk2001**

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).

markieren

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.

CheckListBox - mehrere Einträge löschen

CheckListBox - mehrere Einträge löschen

Forumregeln