Oder ganz ohne if, unter der waghalsigen Annahme, dass keine Checkbox das letzte Control in der Liste ist
Delphi-Quellcode:
function TForm1.AnyCheckbox: Boolean;
var i : Integer;
begin
Result := True;
i := 0;
while Result do begin
Result := (Controls[i] is TCheckBox) and TCheckbox(Controls[i]).Checked;
Inc(i);
end;
end;
ka obs was bringt
