一个简单的问题

Question

我现在有个GroupBox组件,里面有N个CheckBox组件,我想写一个循环来全部给CheckBox.checked赋值,但不知道该怎么写?望赐教!多谢!

Answer 1

var
  i: Integer;
  pCheckBox: TCheckBox;
begin
  for i:=1 to 99 do
  begin
    pCheckBox:=Self.FindComponent('myCheckBox'+IntToStr(i)) as TCheckBox;
    if (pCheckBox<>nil) then pCheckBox.Checked:=True;
  end;

Answer 2

var
  i: Integer;
begin
  for i := 0 to GroupBox1.ControlCount - 1 do
    if GroupBox1.Controls[i] is TCheckBox then
      TCheckBox(GroupBox1.Controls[i]).Checked := True;
end;