Checklistbox1 macht Fehlermeldung

[Chris.R]

Hallo,

wenn du einen 0 bassierten Index hast, dann ist der max Index immer Anzahl - 1

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
VAR i:integer;
begin
for i:=0 to CheckListBox1.Items.Count - 1 do // <-- nur bis Count - 1 zählen
  if CheckListBox1.Checked[i]=true then
   CheckListBox1.Items.Delete(i);
end;

Ciao Chris