很多很多个同类控件的使用

Question

现在我有很多个(40多个)相同类型的TEDIT控件, 在赋值时我想使用以下方法，以FOXPRO中使用为例： FOR J := 1 TO 40   //  设置循环
    yeditname = 'edit'+ str(j)      
    &yeditname.enable = 'false'
 NEXT即把控件的名称存放在变量中，然后对这个控件的属性赋值。
请问在DELPHI中该如何实现这个功能？

Answer 1

var
  bu:TButton;
  i:integer;
begin
 for i:=0 to 10 do
  begin
  bu[i]:=Tbutton.create(self);
  bu[i].parent:=form1;
  bu[i].left:=10*i;
  bu[i].top:=i*20+30;
  end;
end;//用完了控件,不要忘了释放呀;

Answer 2

var 
  e: TComponent;
  i: Integer;  for i := 1 to 40 do
  begin
    e := FindComponent('Edit' + IntToStr(i));
    if (e <> nil) then TEdit(e).Enable := False;
  end;

Answer 3

lianshaohua，楼主要的是对已有的控件的属性赋值，不是要创建控件，并且你创建完不show好像是看不到的，呵呵……还有还有，bu[i]不知道是什么用法？