Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Checklistbox1 macht Fehlermeldung

    Delphi
    by Chris.R, 5. Dez 2009
  Hallo,
  
  wenn du einen 0 bassierten Index hast, dann ist der max Index immer Anzahl - 1
  
  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=true then
  CheckListBox1.Items.Delete(i);