Delphi全局变量带来的问题-创新互联

最近在写一个Delphi程序，想到一个问题，即Delphi为了方便使用的需要，自动创建了所有的窗体，并将这些窗体变量自动声明为全局变量。想了一下，这会带来一些问题：

1、窗体声明为全局变量，可以随时随地可用，但也同时意味着，随时会被修改和调用，调用关系复杂，且难以被追踪。

2、不符合面对向象的要求。由于窗体全局变量的存在，在各个类的方法实现中，涉及到其它窗体时，代码都是类似于 frmMain.XXX 、 frmAddInstance.XXX ，使用窗体变量进行直接调用。但这样是不合理的，一个类的方法实现，直接调用的是某一个具体对象的方法，而不是通过创建、组合、继续的方式来实现代码，不符合面对对象的精神。

如：TForm1的OnClick方法里，经常看到开发人员这样写：

procedure TForm1.OnClick(Sender:TObject);

begin

form1.Caption := 'abc';

form2.Visable := not form2.Visable;

end;

这里在一个类的实现方法里直接使用了form1这个全局窗体变量，虽然运行没有问题，但如果TForm1创建了第二个实例呢，点击第二个实例的窗体时，它的标题根本不会变，但是第一个实例反而改变了。这样的代码肯定是可笑的。如果亡羊补牢，应该把from1改为self。这里对form2的引用也是类似，代码实现引用了具体的全局实例而不是由自己创建或控制的对象，是不合理的。

Delphi的机制难以改变，暂时可以将每个窗体的全局变量看作是单例变量来使用，即不要尝试去创建窗体的第二个实例。

3、Delphi创建的数据模块，上面的组件全部都是可见的，虽然操作方便，但很容易引导开发人员直接去操作组件。更合理的方式是将这些操作封装为模块公开的方法，每个方法实现特定的业务逻辑，其它窗体通过这些方法（即广义上的模块接口）去操作，而不是直接操作组件，从而达到解耦的目的。

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。