singletonunit1.pas

设计模式的源代码 Singleton模式

unit SingletonUnit1;

interface
uses SysUtils;
type
  TSingleton = class
  public
    constructor Create; virtual;
    destructor Destroy; override;
  end;
var
  Glob_Singleton1: TSingleton; //ㄏノ俱砰跑计


implementation

constructor TSingleton.Create;
begin
  if Glob_Singleton1 <> nil then
    abort
  else
    Glob_Singleton1 := Self;
end;

destructor TSingleton.Destroy;
begin
  if Glob_Singleton1 = self then
    Glob_Singleton1 := nil;
  inherited Destroy;
end;



end.