如何动态创建多个对象实例？

[classy]

好像Delphi不能创建对象数组，不知如何才能动态创建多个对象实例，望高手指教。

[classy]

to 海天子
没什么要求，聆听之中...

[Mudeen]

procedure TForm1.Button2Click(Sender: TObject);
var Dlabel :array[1..10] of Tlabel;
i:integer;
begin
for i:=1 to 10 do
begin
Dlabel[i]:=Tlabel.Create(self);
Dlabel[i].Left:=30+i*10;
dlabel[i].Top:=20+10*i;
dlabel[i].Width:=40;
dlabel[i].Height:=30;
dlabel[i].Caption:='I am NO.'+inttostr(i);
dlabel[i].Parent:=form1;
end;
end;

[huojiehai]

当然可以,什么要求吗

[王集鹄]

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 1 to 10 do
with TEdit.Create(Self) do begin
Parent := Self;
Name := Format('MyEdit%d', [I]);
Top := I * Height + 2;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(FindComponent(Format('MyEdit%d', [10]))) then
TEdit(FindComponent(Format('MyEdit%d', [10]))).Text := '请你测试';
end;

[王集鹄]

procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := 1 to 10 do
with TEdit.Create(Self) do begin
Parent := Self;
Name := Format('MyEdit%d', [I]);
Top := I * Height + 2;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(FindComponent(Format('MyEdit%d', [10]))) then
TEdit(FindComponent(Format('MyEdit%d', [10]))).Text := '请你测试';
end;

[classy]

无聊的帖子，分数平分。