一个可能很简单，也可能很麻烦的问题！——请教各位高手

Question

我觉得直接将TCheckBox对象的Checked值转换为逻辑值就行了，
为什么非要用A数组？

Answer 1

对不起，写错了：
我觉得直接将TCheckBox对象的Checked值转换为整数值就行了，
为什么非要用A数组？ 
在调用A数组的时候，使用Byte(Name0.Checked)代替。

Answer 2

var
  I: Integer;
  vComponent: TComponent;
begin
  for I := 1 to N do begin
    vComponent := FindComponent('name' + IntToStr(I));
    if Assinged(vComponent) and TCheckBox(vComponent).Checked then
      A[I] := 1;
  end;
end;

Answer 3

    vComponent := FindComponent('CheckBox' + IntToStr(I));
//                               ~~~~~~~~

Answer 4

建议你用Tstringlist,注意里边的string和object，实际是一个有下标、name和object并存的东西，想把它作为数组来用也没问题,那样，你就不会怀念vb了