如何设置Application全局变量(50分)

_港湾 · 2003-10-07

我想在整个应用程序中设置几个全局变量，方便我在任何一个窗体或单元中调用这些变量。
假如，一个窗体中设置了变量A为10；进入第二个窗体中可以A=A+20；这样，A变为30；
请问如何实现这个功能。请高手指教！

lichaogang · 2003-10-07

定义一个单元，在其中定义变量，在需要的地方都引用这个单元文件，这里的变量就是你所要的。

bjaman · 2003-10-07

lichaogang朋友的意見完全可行.

韩 · 2003-10-07

你的应用程序有没有主窗体，如果有，你再主窗体重保留这个变量啊。
每次打开一个窗体，你就修改这个变量就行了

linbren · 2003-10-07

同意lichaogang

suocy5 · 2003-10-07

var
Form1: TForm1;
A:integer;//在这个位置
implementation

{$R *.dfm}

wangzheking · 2003-10-07

lichaogang的方法可行，而且个人认为比较好

chenshaizi · 2003-10-07

引lichaogang
“定义一个单元，在其中定义变量，在需要的地方都引用这个单元文件，”+
有必要把您在程序中自定义的函数也放在这个单元。方便使用。

azure000 · 2003-10-07

如果是仅仅几个变量的话，就没有必要再新建一个窗体了。虽然这样更明确，但从占用资源，消耗内存的角度来看是不合理的。
如果共用程序比较多的话，那么新建一个窗体还是上佳选择。
不是的话，直接在主窗体内声明，就可以了。位置在implementation 的上面。

lichaogang · 2003-10-07

楼上的，不是窗体，而是一个Unit文件。

_港湾 · 2003-10-09

经过你们大家的帮助,我的全局变量已经搞定了,lichaogang的方法是可行无误的,我就采用了他的方法,上面的朋友,谢谢!支持lichaogang他的朋友都有相应的分数,平分下来每个人没有几分,但是我对各位朋友的一点谢意。

lichaogang · 2003-10-09

hehe,谢谢，笑纳了。

_港湾 · 2004-02-26

多人接受答案了。