Question

delphi动态创建了一个TEdit数组但是运行时看不到，求高人

procedure TForm1.FormCreate(Sender:TObject);
var
i:integer;
begin
SetLength(a,200);
for i:=0 to 199 do begin
a[i]:=TEdit.Create(Self);
a[i].Visible:=True;
a[i].Parent:=Form1;
a[i].AutoSize:=False;
a[i].ReadOnly:=True;
a[i].Width:=ClientWidth div 20;
a[i].Height:=(ClientHeight-Button1.Height - 20) div 20;
a[i].Top:=(i div 20)*a[i].Height;
a[i].Left:=(i mod 20)*a[i].Width;
a[i].Text:=IntToStr(i+1);
end;
Button1.Top:=ClientHeight - Button1.Height -10;
Button1.Left:=ClientWidth - Button1.Width - 10;
end;

a：=array of TEdit 已经声明

Answer 1

我这可以的产生的啊，你那会不会是别的问题。

追问

对，就应该是这样的，但是我为什么只有一个button...
能说下可能的问题吗？

追答

你那个array of TEDit是在哪里定义的，可不可以把你的程序发给我？我的邮箱pennwin@126.com

Answer 2

我的情况相同。重装delphi吧。

追问

重装了还是不行啊...囧死

Answer 3

你把代码按如下修改一下，就行了
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
A:array[0..199] of TEdit;
begin
for i:=0 to 199 do begin
a[i]:=TEdit.Create(self);
a[i].Visible:=True;
a[i].Parent:=Form1;
a[i].AutoSize:=False;
a[i].ReadOnly:=True;
a[i].Width:=ClientWidth div 20;
a[i].Height:=(ClientHeight-20) div 20;
a[i].Top:=(i div 20)*a[i].Height;
a[i].Left:=(i mod 20)*a[i].Width;
a[i].Text:=IntToStr(i+1);
end;

end;
A当然也可以定义为全局变量。

Answer 4

加一句
a[i].Show;