procedure TForm1.Button1Click(Sender: TObject);
var
  Idx : integer;
  Chx : string;
  P   : pointer;
begin
  for Idx := 1 to 60 do
    begin
    Chx := 'CheckBox'+InttoStr(Idx);
    P := Self.FieldAddress(Chx);
    if P <> nil then
       TCheckBox(P^).Checked := True;
    end;
end;

如果某容器上有且仅有这1-60个CheckBox, 也可以用FindComponent  Components 或FindControl  Controls实现.

上面讲的方法二的示例代码如下:

procedure TForm1.Button2Click(Sender: TObject);
var
  Idx : integer;
begin
  for Idx := Self.ComponentCount-1 downto 0 do
    if Self.Components[Idx] is TCheckBox then
      TCheckBox(Self.Components[Idx]).Checked := True;
end;

不过这样做的结果是, 如果Form上有1-70个CheckBox, 则会把它们全部为True

你的水平越来越高了，佩服啊

[em8]