能动态创建一百个edit吗？

Question

若你真的要100个就看下面
var
  Label1 :Array[1..100] of TLabel ;
  i :Byte ;
begin
  for i:= 1 to 100 do
  begin
     Label1[i] := TLabel.Create(Form1) ;
     with Label1[i] do
     begin
        Parent := Form1 ;
        Caption := Inttostr(i) ;
     end ;
  end ;
end ;

Answer 1

100个
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
const
  NamePrefix = 'MyEdit';
begin
  for i := 1 to 100 do
  begin
    TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
    with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
    begin
      Left := 10;
      Top := i * 20;
      Parent := self;
     end;
  end;
end;

Answer 2

我说句大实话！！请给他创建的时候不同的NAME！！

Answer 3

能
var 
  S:String;
  Edit1:TEdit;
begin
  For i:=1 to 100 do
  begin
    S:='A'+inttostr(i);
    Edit1:=TLabel.create(form1);
    Edit1.Name:=S;  
    Edit1.Caption:='ddd';
    edit1.Parent := Form1;
  end;
end;

Answer 4

什么实话，如果相同的NAME能创建吗，既然创建了，那肯定是不同的NAME