Checkboxlist einträge zählen und in Label ausgeben

[marabu]

Hallo MiniKeks,

willst du zählen wieviele Haken gemacht wurden?

Delphi-Quellcode:

procedure TDemoForm.CountButtonClick(Sender: TObject);
var
  i, iChecked: integer;
begin
  iChecked := 0;
  for i := 0 to Pred(CMAXITEMS) do
    iChecked := iChecked + Ord(CheckListBox.Checked[i]);
  CountPanel.Caption := IntToStr(iChecked);
end;

Grüße vom marabu