Checkboxen mit gleichem Boolean-Wert zählen

[Balu der Bär]

Schnell getippt, versuch mal in der Art:

Delphi-Quellcode:

while c3 < 29 do begin
   comp := (FindComponent('Checkbox' + IntToStr(c3)) as TCheckbox);
   if Assigned(comp) then
    begin
     if comp.Checked = true then a.Add(comp.Caption + ' hat abgegeben!') else
      na.Add(comp.Caption + ' hat nicht abgegeben!');
   end;