var
btngp :array[0..n] of tbutton;
procedure ini_btngp;
begin
btngp[0]:=button1;
................
btngp[n]:=buttonn;
end;
就这样,很简单吧!!!!,分拿来!!!!!
btngp :array[0..n] of tbutton;
procedure ini_btngp;
begin
btngp[0]:=button1;
................
btngp[n]:=buttonn;
end;
就这样,很简单吧!!!!,分拿来!!!!!
记着给分啊!!
出错了啊!
提示错误是project project1.exe raised exception class Eaccessviolation with message 'access violation at address 00420eed in modal'
我是这样写的
var
a:array [0..3] of TEdit;
i:integer;
begin
for i:=0 to 3 do
begin
a[i].name:='edit'+inttostr(i);
a[i].Text:='edit'+inttostr(i);
a[i].Parent:=form1;
end;
end;
a:array [0..3] of TEdit;
i:integer;
begin
for i:=0 to 3 do
begin
// a[i].name:='edit'+inttostr(i);
a[i].Text:='edit'+inttostr(i);
a[i].Parent:=form1;
end;
end;
也不能用啊,大哥!
var
i : integer;
a : array[0..3] of TEdit;
begin
for i :=0 to 3 do
begin
a[i] := TEdit.Create(self);
a[i].Name := 'edit' + inttostr(i);
a[i].Left := i * a[i].Width;
a[i].Text:='edit'+inttostr(i);
a[i].Parent:=form1; end;
end;
还有别忘了释放掉!
象pathe那样,Create(self),已经传了当前表单的指针过去了,在当前的Form释放时会自动释放