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

[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)

[Meflin]

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