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

Question

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;

Answer 1

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;

Answer 2

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;