Checkboxen mit gleichem Boolean-Wert zählen

[gmc616]

Ich würde mich als Delphi auch beschweren, da cb= NULL ist.
du musst comp auf cb als TCheckbox casten.

Delphi-Quellcode:

procedure TForm1.wasweissich;
var
   comp : TComponent;
   cb : TCheckbox;
   c3 : integer;
begin
c3:=0;
while c3 < 29 do begin
  comp := FindComponent('CheckBox' + IntToStr(c3));
  if Assigned(comp) then 
  begin
    
    cb := comp as TCheckbox; // <-- 
   
    if cb.CHecked = true then 
       a.Add(cb.Caption + ' hat abgegeben!') 
    else
       na.Add(cb.Caption + ' hat nicht abgegeben!');
    end;
  end;
  inc (c3); // <-- nicht vergessen
end;