Prüfen ob mehrere Checkboxen = checked

[Frederika]

oder kurz und performant so:

Delphi-Quellcode:

function TForm1.AnyCheckbox: Boolean;
  var i : Integer;
begin
  Result := True;  
  for i := 0 to Pred(ControlCount) do 
    if (Controls[i] is TCheckbox) and TCheckbox(Controls[i]).Checked then Exit;
  Result := False;
end;

(dafür muss natürlich "complete boolean eval" false sein)