delphi 单例模式实现

 unit Unit2;

 interface

 uses System.SysUtils;

 type
   { TSingle }
   TSingle = class(TObject)
   private
     FStr: string;
   protected
   public
     constructor Create;
     class function GetInstance(): TSingle;
     class function NewInstance: TObject; override;
     procedure FreeInstance; override;

     property Str: string read FStr write FStr;
   published

   end;

 implementation

 var
   GlobalSingle: TSingle;
   { TSingle }
 constructor TSingle.Create;
 begin
   FStr := DateTimeToStr(Now);
 end;

 procedure TSingle.FreeInstance;
 begin
   inherited;
   GlobalSingle := nil;
 end;

 class function TSingle.GetInstance: TSingle;
 begin
   if not Assigned(GlobalSingle) then
   begin
     GlobalSingle := TSingle.Create();
   end;
   Result := GlobalSingle;
 end;

 class function TSingle.NewInstance: TObject;
 begin
   if not Assigned(GlobalSingle) then
     GlobalSingle := TSingle(inherited NewInstance);
   Result := GlobalSingle;
 end;

“在delphi中编译器对构造函数的保护级别进行了处理，即便设为private，编译器仍然会将其修正为public，所以覆盖基类中的NewInstance类方法，通过编译器魔法，系统在每次构造对象时都会调用这个类方法，通过重载它就可以实现对构造函数的控制。”[delphi深度探索]

要注意的是调用者要明确这是个单例方法，如果像上面依然声明了构造方法则再次创建时将重新执行构造方法。虽然TSingle这个类是唯一的但是那些初始化参数等已经改变。比如构造时候创建了TList，则再次初始化时原来的TList将被丢弃，造成内存泄露。