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将被丢弃，造成内存泄露。