读书人

全局变量应该放在哪里?解决思路

发布时间: 2012-03-15 11:50:39 作者: rapoo

全局变量应该放在哪里?
如果自己写了个函数或定义了个变量,希望全局用,那应该声明在什么地方?(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.

读书人网 >.NET

热点推荐