delphi的单例模式TSingleton

最新推荐文章于 2021-08-16 17:08:15 发布

原创最新推荐文章于 2021-08-16 17:08:15 发布 · 796 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#单例 #设计模式 #模式 #单例模式.单件模式

DElphi组件专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种使用Delphi实现单例模式的方法。通过定义TSingleton类，并重写NewInstance和FreeInstance方法来确保在整个应用程序中只存在一个实例。此外，还提供了一个TForm1表单类作为示例。

type
TSingleton = class
public
    class function NewInstance : TObject;override;
    procedure FreeInstance;override;
end;
TForm1 = class(TForm)
    Button1: TButton;
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
singleton:TSingleton=nil;
Ref_Count:integer=0;
implementation

{$R *.dfm}

{ TSingleton }

procedure TSingleton.FreeInstance;
begin
Dec(Ref_Count);
if Ref_Count=0 then
begin
singleton := nil;
inherited FreeInstance;
end;
end;

class function TSingleton.NewInstance: TObject;
begin
if (not Assigned(singleton)) then
begin
singleton := inherited NewInstance as TSingleton;
end;
Result := Singleton;
Inc(Ref_Count);
end;

end.