implement上面定义的变量可以在引用了本单元的其它单元中使用,可以看做是一个全局变量
便还有另一种全局变量，就是只能在本单元中任意一个地方使用:
type
TForm1
=
class(TForm)
Button1:
TButton;
private
procedure
OnClick(Sender:
TObject);
public
{
Public
declarations
}
end;
var
Form1:
TForm1;//form1变量就可以在其它单元中使用(前提是其它单元在uses中加入了本单元名unit1)
implementation
{$R
*.dfm}
var
i:
integer
=
12;//这里的i就只能在本单元中使用，且可以是本单元的任何一个地方
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024