《GOF设计模式》—单件(Singleton)—Delphi源码示例：单件接口（使用全局变量）

示例：单件接口（使用全局变量）
说明：
（1）、定义
保证一个类仅有一个实例，并提供一个访问它的全局访问点。
（2）、结构



Singleton：
定义一个Instance类操作，负责创建它自己的唯一实例。
客户只能通过Instance操作访问一个Singleton的实例。
（3）、特点
让类自身负责保存它的唯一实例。这个类可以保证没有其他实例可以被创建（通过截取创建新对象的请求），并且它可以提供一个访问该实例的方法。这就是单件模式。
（4）、效果
<1>、对唯一实例的受控访问
因为Singleton类封装它的唯一实例，所以它可以严格的控制客户怎样以及何时访问它。
<2>、缩小名空间
Singleton模式是对全局变量的一种改进。它避免了那些存储唯一实例的全局变量污染名空间。

代码：

unit uSingleton1;

interface

uses
SysUtils, Dialogs;

type
TSingleton = class(TObject)
private
FSingletonData: string;
function GetSingletonData: string;
procedure SetSingletonData(const Value: string);
public
constructor Create;
destructor Destroy; override;
//---
class function Instance: TSingleton;
procedure SingletonOperation;
//---
property SingletonData: string read GetSingletonData write SetSingletonData;
end;

implementation

var
unigueInstance: TSingleton;

constructor TSingleton.Create;
begin
if unigueInstance = nil then
unigueInstance := Self
else
abort;
end;

destructor TSingleton.Destroy;
begin
unigueInstance := nil;
//---
inherited;
end;

class function TSingleton.Instance: TSingleton;
begin
if unigueInstance = nil then
unigueInstance := TSingleton.Create;
//---
Result := unigueInstance;
end;

function TSingleton.GetSingletonData: string;
begin
Result := FSingletonData;
end;

procedure TSingleton.SetSingletonData(const Value: string);
begin
FSingletonData := Value;
end;

procedure TSingleton.SingletonOperation;
begin
ShowMessage(FSingletonData);
end;

end.

procedure TForm1.Button5Click(Sender: TObject);
begin
//---
with TSingleton.Instance do
begin
SingletonData := '123';
SingletonOperation;
end;
//---
with TSingleton.Instance do
begin
SingletonData := '456';
SingletonOperation;
end;
//---
TSingleton.Instance.Free;
end;