Delphi 下全局对象的使用

本来在面向对象编程思想里是忌讳使用全局变量的。如果非要使用，那么我们将需要用到的全局变量放到一个全局对象里，由全局对象对其进行管理。

再次申明：请谨慎使用全局变量！

具体做法是：
先新建一个单元文件：GlobalUnit.pas
在这个单元文件中申明全局类：TGlobalObject = class(TObject)
这个类里面可以存放你的全局变量，这个类的职责就只有维护你放到这个类里面的全局变量。
然后还要在这个单元文件中申明一个全局对象变量：var GlogalObject: TGlobalObject;
使用的时候，在所有要引用全局对象的单元文件前Uses这个GlobalUnit.pas单元文件。
然后在工程文件的开始创建全局对象，最后释放它。
注意：千万不要在除了工程文件以外的任何地方创建和释放它，否则后果自负哦！

下面给出一个例子。
这是全局单元：

unit GlobalUnit;

interface

uses
  SysUtils, Windows, Messages, Forms;

type
  TGlobalObject = class (TObject)
  private
    FMyGolbalVar1: Integer;     //这里是类的私有变量
    FMyGolbalVar2: string;
    procedure SetMyGolbalVar1(Value: Integer);
  public
    property MyGolbalVar1: Integer read FMyGolbalVar1 write SetMyGolbalVar1;
                 //这里提供变量的操作方法，也是外界访问全局变量的接口
    property MyGolbalVar2: string read FMyGolbalVar2 write FMyGolbalVar2;
  end;

var
  GlobalObject: TGlobalObject;   //申明全局对象变量

implementation

{
******************************** TGlobalObject *********************************
}
procedure TGlobalObject.SetMyGolbalVar1(Value: Integer);
begin       //这里对变量的写入进行了约束
  if Value <> FMyGolbalVar1 then
  begin
    if (Value >= 18) and (Value <= 60) then
      FMyGolbalVar1 := Value
    else
      raise ERangeError.CreateFmt('您输入的数值：%d 已经超出了我们要求的范围 %d..%d',
            [Value, 18, 60]);
  end;
end;


end.

下面是工程文件：

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  GlobalUnit in 'GlobalUnit.PAS';

{$R *.res}

begin
  Application.Initialize;
  GlobalObject := TGlobalObject.Create;  //创建全局对象
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  GlobalObject.Free;                     //销毁全局对象
end.

下面是两个窗体单元：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, GlobalUnit, Unit2;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    UpDown1: TUpDown;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure UpDown1ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure Edit2Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FForm2: TForm2;   
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  FForm2.ShowModal;
  UpDown1.Position := GlobalObject.MyGolbalVar1;
  Edit2.Text := GlobalObject.MyGolbalVar2;
end;

procedure TForm1.UpDown1ChangingEx(Sender: TObject;
  var AllowChange: Boolean; NewValue: Smallint;
  Direction: TUpDownDirection);
begin
  try
    GlobalObject.MyGolbalVar1 := NewValue;
  except
    AllowChange := False;
    raise;      //继续抛出错误
  end;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  GlobalObject.MyGolbalVar2 := Edit2.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FForm2 := TForm2.Create(Self);
  GlobalObject.MyGolbalVar2 := Edit2.Text;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FForm2.Free;
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, GlobalUnit;

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{var
  Form2: TForm2;
}
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  GlobalObject.MyGolbalVar1 := 35;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  GlobalObject.MyGolbalVar2 := Edit1.Text;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  Caption := GlobalObject.MyGolbalVar2;
end;

end.