TZblok

unit Singleton;


interface


type
  TSingleton = class sealed
  strict private
    class var FInstance: TSingleton;
  public
    // Global point of access to the unique instance
    class function Create: TSingleton;
    destructor Destroy; override;
  end;


implementation


{ TSingleton }


class function TSingleton.Create: TSingleton;
begin
  if FInstance = nil then
    FInstance := inherited Create as Self;
  Result := FInstance;
end;


destructor TSingleton.Destroy;
begin
  FInstance := nil;
  inherited;
end;


end.

Štítky: Delphi, design patterns