delphi多线程-23种设计模式Delphi版之单例二

接上篇，细心的朋友可能发现我在上一篇文章中重写类和函数，原因是：【在中编译器对构造函数的保护级别进行了处理，即便设为，编译器仍然会将其修正为，所以覆盖基类中的类方法，系统在每次构造对象时都会调用这个类方法，通过重载它就可以实现对构造函数的控制】，同时在上篇文章中有一段核心代码

我以注释的形式标注这里在并发环境下存在安全隐患，那么现在我们就通过多线程的方式研究一下这个问题？具体做法就是我创建10个线程delphi多线程，反复的调用这个函数

调整代码

因为现在的CPU执行速度很快delphi多线程，而我们的代码又不是什么复杂的运算，所以通过添加延时的方式模拟

测试代码

执行结果

结论：我们发现当以多线程的方式访问时出现了创建多个类对象的情况，这就是我前面提的并发环境下的安全问题

原因分析

解决方案

解决方案主要有两种

同步锁

临界区对象初始化和销毁

class function TSingle.GetInstance: TSingle;begin    //临界区开始    CriticalSection.Enter;    if GlobalSingle = nil then begin        //添加延迟模拟多线程暂留        TThread.Sleep(1000);        GlobalSingle := TSingle.create();    end;
    //临界区结束    CriticalSection.Leave;
    Result := GlobalSingle;end;

测试的代码不变，我们会发现问题已经成功的被解决了

内部类

完整的代码如下：

单元

unit uCommonUtil;
interface
uses    system.SyncObjs, System.Classes, System.SysUtils;
type    TStringBuild = class(TObject)    private        constructor Create;    public        //其实这个地方可以设置为private的然后提供一个public的函数，偷个懒        type            Build = class                //注意函数的返回值                class function GetInstance(): TStringBuild;            end;        class function NewInstance: TObject; override;        procedure FreeInstance; override;    end;
implementation
var
    { TStringBuild }    StringBuild: TStringBuild = nil;
constructor TStringBuild.Create;begin    Writeln('TStringBuild的构造方法');end;
procedure TStringBuild.FreeInstance;begin    inherited;    StringBuild := nil;end;
class function TStringBuild.NewInstance: TObject;begin    if StringBuild = nil then        //重载方法通过父类  NewInstance方法获取对象，强制转换为 TSingle类型        StringBuild := TStringBuild(inherited NewInstance);    Result := StringBuild;end;
//内部类的类方法class function TStringBuild.Build.GetInstance: TStringBuild;begin    if StringBuild = nil then        StringBuild := TStringBuild.create();    Result := StringBuild;end;
initialization
finalization
end.

测试单元

program ProjectSingle;
{$APPTYPE CONSOLE}{$R *.res}
uses    System.Classes,    System.SysUtils,    System.Types,    uCommonUtil in 'uCommonUtil.pas';
procedure Demo2();begin    try
        for var I := 1 to 100 do begin            TThread.CreateAnonymousThread(                procedure                begin                    var instance := TStringBuild.Build.GetInstance();
                    writeln(IntToStr(TThread.CurrentThread.ThreadID) + '：' + IntToStr(Integer(instance)));                end).Start;        end;
    except        on e: Exception do            writeln(e.Message);    end;
    readln;end;
begin    Demo2();end.