Question

delphi With DO的问题

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SetLength(a,200);
for i := 0 to 199 do
begin
a[i] := TEdit.Create(self);
a[i].Parent := self;
a[i].AutoSize := False;
a[i].Height := (ClientHeight-Button1.Height-20)div 10;
a[i].Width := ClientWidth 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;

为什么我在procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SetLength(a,200);
for i := 0 to 199 do
begin
with A[i] do
TEdit.Create(self);
Parent := self;
AutoSize := False;
Height := (ClientHeight-Button1.Height-20)div 10;
Width := ClientWidth div 20;
Top := (i div 20)*a[i].Height;
Left := (i mod 20 )*a[i].Width ;
Text := inttostr(i+1);
end;

编译就出错呢

Answer 1

procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
begin
SetLength(a,200);
for i := 0 to 199 do
begin
with A[i] do
begin
TEdit.Create(self);
Parent := self;
AutoSize := False;
Height := (ClientHeight-Button1.Height-20)div 10;
Width := ClientWidth div 20;
Top := (i div 20)*a[i].Height;
Left := (i mod 20 )*a[i].Width ;
Text := inttostr(i+1);
end;
end;
end;

Answer 2

你把TEdit.Create(self);放了with外面吧
创建出来了再with

Answer 3

with A[i] do
begin
...

end;