全局变量应该放在哪里?
如果自己写了个函数或定义了个变量,希望全局用,那应该声明在什么地方?(VB里我是建个类模块,所有全局的都放里面,D我不太清楚)
[解决办法]
下面是一个示例单元,凡有注释的地方,都是全局的
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;//类成员,也是全局的,并且在引用此单元的地方可见
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
function ClassProc1(I : integer):boolean; // 类TForm1的私有方法
public
{ Public declarations }
procedure ClassProc2(I : integer); // 类TForm1的公共方法
end;
procedure Proc5;
var
Form1: TForm1;
Var1 : string; //全局变量,在引用本单元的地方,都可见
implementation
{$R *.dfm}
var
Var2 : string; //全局变量 ,但只在本单元可见
procedure Proc3; //全局的过程 ,但只在本单元可见
begin
showmessage( 'Proc3 ');
end;
function Proc4(I : integer) : boolean; //全局函数 ,但只在本单元可见
begin
result := I > 0;
end;
procedure Proc5;
begin
showmessage( 'Proc5 ');
end;
function TForm1.ClassProc1(I : Integer): boolean;
begin
result := I < 0;
end;
procedure TForm1.ClassProc2(I : Integer);
begin
Var1 := IntToStr(I) + 'Of ClassProc2 ';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Proc5;//调用的方式 (仅举一例)
end;
end.