代码优化

Question

有一段代码如下：
dbcheckbox1.checked:=true;
dbcheckbox2.checked:=true;
dbcheckbox3.checked:=true;
dbcheckbox4.checked:=true;
dbcheckbox5.checked:=true;
dbcheckbox6.checked:=true;
dbcheckbox7.checked:=true;
dbcheckbox8.checked:=true;
dbcheckbox9.checked:=true;
dbcheckbox10.checked:=true;
............
如果优化该怎么写呢

Answer 1

写个循环，遍历窗口所有组件，凡是Tdbcheckbox都设为true

Answer 2

你这是老问题了！Var
 i :integer;begin
  For i := 0 to ComponentCount - 1 do
      If Components[i] is TDBCheckBox then
         TDBCheckBox(Components[i]).Checked := True;
end;

Answer 3

Var
 i :integer;begin
  For i := 0 to ComponentCount - 1 do            //遍历窗口所有组件
      If Components[i] is TDBCheckBox then       //如果组件为TDBCheckBox
         TDBCheckBox(Components[i]).Checked := True;   //则将其Checked := True; 
end;

Answer 4

解释一下：Var
 i :integer;begin
For i := 0 to ComponentCount - 1 do            //遍历窗口所有组件
    If Components[i] is TDBCheckBox then       //如果组件为TDBCheckBox
      TDBCheckBox(Components[i]).Checked := True;//则将其Checked := True; 
end;