delphi中定义全局变量

[zhaozheng821018]

我现在有三个form，分别是1，2，3
我想在form1中设置一个全局变量，在form2中给全局变量赋值，在form3中使用这个form2所赋的值
这个东东怎么实现？？？？

[阿三]

建一个公共单元，在这里定义变量，其余的都引用它。

[zhaozheng821018]

不好用啊，我把form1变成公用的unit，之后我在public中设置了变量，但是依然不好用。

[xiedewei]

var
  Form1: TForm1;
  s: string;

在这里设置变量

[zhaozheng821018]

但是怎么引用了，比如，我在form2中把公共unit给uses进来，然后直接使用变量s提示没有定义，如果使用unit.s的话，那个s出不来……

[zhaozheng821018]

搞定，谢谢了！

[scutLiu]

[Quote=引用 1 楼 zxf_feng 的回复:]
建一个公共单元，在这里定义变量，其余的都引用它。
[/Quote]
这种方法可行

具体实现为
使用new unit创建一个sysPublic单元(不需要创建窗体)
然后在该单元中定义全局变量
在使用全局变量的单元中引用sysPublic单元即可

sysPublic单元的文件sysPublic.pas的内容格式大致如下
unit sysPublic;

interface
uses
//global variables
var
s:string='';
//global functions

//global procedures

implementation
//implement the functions and procedures