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: , ,

Komentáře: Okomentovat

Přihlášení k odběru Komentáře k příspěvku [Atom]





<< Domovská stránka

This page is powered by Blogger. Isn't yours?

Přihlášení k odběru Příspěvky [Atom]