Checklistbox1 macht Fehlermeldung

[Helmi]

Hallo,

da du Einträge aus der Liste löscht, verringert sich damit auch die Anzahl der Einträge.
Deswegen musst du die Schleife rückwärts ablaufen lassen.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
VAR i:integer; 
begin 
for i := Pred(CheckListBox1.Items.Count) downto 0 do  
  If CheckListBox1.Checked[i] then 
    CheckListBox1.Items.Delete(i); 
end;