26. 8. 2011
Singleton v Delphi
Poslední dobou se dost zajímám o Design patterns a tak člověka napadne, jak by ten který implementoval Delphi. Jako první jsem si vybral singleton (i když o něm někteří říkají, že je to anti-pattern):
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, Delphi programming, design patterns