btnc:array[1..10] of TBitBtn，这样把bitbtn赋给这个组件数组

[tina1014]

请问下，我在form上放了10个BitBtn，然后定义btnc:array[1..10] of TBitBtn，该怎么操作使的btnc[1]对应的就是bitbtn1呢？谢谢！

[xixuemao]

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:= 1 to 10 do
btnc[i]:= TBitBtn.Create(self);

btnc[1]:= bitbtn1;//直接＝就可以了
btnc[2]:= bitbtn2;
btnc[1].Caption:= 'sadfsa';
end;

[tina1014]

谢谢，在btnc[1]:= bitbtn1这里还有没有更加简单的方法来做呢？比如也是用循环，那样如果是几十个的话就不用一个一个=了。。。

[xixuemao]

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:= 1 to 10 do
begin
btnc[i]:= TBitBtn.Create(self);
btnc[i]:= TBitBtn(FindComponent('bitbtn'+inttostr(i)));
btnc[i].Caption:= 'sdff'+inttostr(i);
end;
end;

[leonkim]

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:= 1 to 10 do
begin
btnc[i]:= TBitBtn.Create(self);
btnc[i]:= TBitBtn(FindComponent('bitbtn'+inttostr(i)));
btnc[i].Caption:= 'sdff'+inttostr(i);
end;
end;
呵，来晚了