Prüfen ob mehrere Checkboxen = checked

[DeddyH]

Aus Performancegründen würde ich entweder wie oben break benutzen oder es so machen:

Delphi-Quellcode:

i := 0;
b := false;
while (i < ControlCount) and not b do
  begin
    if Controls[i] is TCheckbox then
      b := TCheckbox(Controls[i]).Checked;
    inc(i);
  end;

if b then
  //was auch immer