Delphi 单例模式

Question

关闭。这个问题需要多问 focused 。目前不接受答案。

---

想要改进此问题吗？更新问题，使其仅关注一个问题 editing this post .

已关闭 8 年前。

Improve this question

我知道这个问题在社区中已经讨论过很多次了，但我就是找不到 Delphi 中单例模式的一个很好且简单的实现。我有一个 C# 示例:

public sealed class Singleton {
  // Private Constructor
  Singleton() { }

  // Private object instantiated with private constructor
  static readonly Singleton instance = new Singleton();

  // Public static property to get the object
  public static Singleton UniqueInstance {
    get { return instance; }
  }
}

我知道在 Delphi 中没有像这样优雅的解决方案，并且我看到了很多关于无法在 Delphi 中正确隐藏构造函数(使其私有(private))的讨论，因此我们需要重写 NewInstance 和 FreeInstance 方法。我相信这就是我在 ibeblog.com - "Delphi: Singleton Patterns" 上找到的实现。 :

type
  TTestClass = class
  private
    class var FInstance: TTestClass;
  public                              
    class function GetInstance: TTestClass;
    class destructor DestroyClass;
  end;

{ TTestClass }
class destructor TTestClass.DestroyClass;
begin
  if Assigned(FInstance) then
    FInstance.Free;
end;

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

您对单例模式有何建议？能否简单优雅且线程安全？

谢谢。

Answer 1

我认为，如果我想要一个没有任何构造方法的类对象事物，我可能会使用一个带有包含在单元的实现部分中的实现对象的接口(interface)。

我将通过全局函数(在接口(interface)部分中声明)公开接口(interface)。该实例将在最终确定部分进行整理。

为了获得线程安全性，我会使用关键部分(或等效项)或可能仔细实现的双重检查锁定，但要认识到，由于 x86 内存模型的强大性质，简单的实现才有效。

它看起来像这样:

unit uSingleton;

interface

uses
  SyncObjs;

type
  ISingleton = interface
    procedure DoStuff;
  end;

function Singleton: ISingleton;

implementation

type
  TSingleton = class(TInterfacedObject, ISingleton)
  private
    procedure DoStuff;
  end;

{ TSingleton }

procedure TSingleton.DoStuff;
begin
end;

var
  Lock: TCriticalSection;
  _Singleton: ISingleton;

function Singleton: ISingleton;
begin
  Lock.Acquire;
  Try
    if not Assigned(_Singleton) then
      _Singleton := TSingleton.Create;
    Result := _Singleton;
  Finally
    Lock.Release;
  End;
end;

initialization
  Lock := TCriticalSection.Create;

finalization
  Lock.Free;

end.