Checkboxlist einträge zählen und in Label ausgeben

[MiniKeks]

Wie funktioniert das genau?
Bin dankbar für jede Hilfe!

mfg,
MiniKeks :)

[Der_Unwissende]

Hi,

du meinst doch bestimmt die CheckListBox, oder?
Die hat die Eigenschaft Items vom Typ TStrings, da kannst du dann direkt in der Hilft nach TStrings suchen.

Ansonsten hast du halt sowas wie :

Delphi-Quellcode:

  Label := IntToStr(CheckListBox.Items.Count);

Gruß Der Unwissende

[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