N
nullbert
Unregistered / Unconfirmed
GUEST, unregistred user!
我的代码是这样的
type
Tprintdlg = class(TForm)
private
colnum:array of integer;
public
end;
var
printdlg:tprintdlg;
procedure myprint;export;
implementation
{$R *.dfm}
procedure myprint;
var
colnum:integer
begin
colnum:=colnum+1;
编译不能通过,程序做修改
type
Tprintdlg = class(TForm)
private
public
end;
var
colnum:array of integer
printdlg:tprintdlg;
procedure myprint;export;
implementation
{$R *.dfm}
procedure myprint;
var
colnum:integer
begin
colnum:=colnum+1;
为什么,编译时变量表不是由内到外的吗?
type
Tprintdlg = class(TForm)
private
colnum:array of integer;
public
end;
var
printdlg:tprintdlg;
procedure myprint;export;
implementation
{$R *.dfm}
procedure myprint;
var
colnum:integer
begin
colnum:=colnum+1;
编译不能通过,程序做修改
type
Tprintdlg = class(TForm)
private
public
end;
var
colnum:array of integer
printdlg:tprintdlg;
procedure myprint;export;
implementation
{$R *.dfm}
procedure myprint;
var
colnum:integer
begin
colnum:=colnum+1;
为什么,编译时变量表不是由内到外的吗?