DELPHI里的类似控件数组的形式要如何实现？

Question

有多个TEDIT控件，分别为e1，e2，e3，e4.......想利用循环对控件进行操作。类似VB里的控件数组。省得一个个的写。要怎么实现呢？

Answer 1

有点不像vb,是用代码实现。
procedure TForm1.Button1Click(Sender: TObject);
var abc:array[1..100] of Tcheckbox;
    i:integer;
begin
   for i:=1 to 100 do
   begin
      abc[i] := tcheckbox.Create(self);
      abc[i].Left :=10+i*10;
      abc[i].Parent :=self;
      abc[i].Visible :=true;
      abc[i].Name :='abc'+inttostr(i);
      abc[i].OnClick := checlick;   //checlick单击过程。。
   end;
end;end.

Answer 2

No.1 TComponent.FindComponent(); //方法//利用元件名查找for I := 1 to N do
  if FindComponent(Format('e%d', [I]) is TEdit then
    TEdit(FindComponent(Format('e%d', [I]))).Text := '测试看看';No.2 E: array[1..N] of TEdit;
E[1] := e1;
E[2] := e2;
E[3] := e3;
... ...

Answer 3

for I := 1 to 10 do
  begin
  with TEdit.Create(Self) do
  begin
    Name := 'Edit' + IntToStr(I);
    Top := (I + 1) * 50;
    Left := 50;
    OnChange := MyChange; // 你自己写的方法指针
  end;
end;

Answer 4

for Y := ...to ...do 
(Components[Y] as TEdit).Text :=.....