Question

DELPHI 数组控件

for i:=1 to 5 do
begin
Edit[i]:=TEdit.Create(Application.MainForm);
Edit[i].Text:='11111';
END;
我定义了5个Edit数组 可以显示控件但就是显示不出来 Edit[i].Text:='11111' 为什么阿

Answer 1

var
edit : array[0..4] of TEdit;
i : integer;
begin
for i:=low(edit) to high(edit) do
begin
edit[i]:=TEdit.Create(Application.MainForm);
edit[i].Parent := self;
edit[i].Text:='11111';
edit[i].Top := i * 30+20;
edit[i].Left := 100;
edit[i].Width := 50+5*i;
edit[i].Height := 15 + i*3 ;
edit[i].AutoSize := False;
end;
end;

Answer 2

for i:=1 to 5 do
begin
Edit[i]:=TEdit.Create(Application.MainForm);
Edit[i].Parent := Form1;
Edit[i].Top := i * 30;
Edit[i].Text:='11111';
END;

Answer 3

var
edit: array[0.. 4] of TEDit;
i, t: integer;
begin
t := 0;
for i := low(edit) to high(edit) do
begin
edit[i] := tedit.create(Self);
edit[i].Parent := self;
edit[i].text := '1111';
edit[i].Top := edit[i].Top + t;
t := t+ edit[i].Height;
end;

end;

经过验证通过，没有任何问题。