Anzahl der markierten Checkboxen zählen?

[mirage228]

Hi,

so geht es für alle CheckBoxen:

Delphi-Quellcode:

var
  i, count: integer;
begin
  count := 0;
  for i := 0 to Self.ControlCount-1 do
    if (Self.Controls[i] is TCheckBox) and
      (TCheckBox(Self.Controls[i]).Checked) then
        Inc(Count);

Der Code muss in eine Methode Deines Forms.

mfG
mirage228