Einzelnen Beitrag anzeigen

dimo

Registriert seit: 28. Okt 2005
22 Beiträge
 
#1

Singleton-Pattern in Delphi 7 realisieren

  Alt 30. Jun 2006, 13:19
Hallo,
wie kann ich das Singleton-Pattern in Delphi 7 realisieren? Was ich damit meine ist:

Delphi-Quellcode:
TSingleton = class
     class function GetInstance : TSingleton;
end;
Diese Prozedur muss natürlich thread-sicher sein. Mit globalen Variablen geht es natürlich nicht,
da ich dieselbe Instanz sowohl im Programm als auch in allen mitprogrammierten BPLs und DLLs benutzen
will (ohne die expilizit zu übergeben).
Jetzt habe ich das Problem mit Shared Memory und 1 Mutex gelöst (im Shared Memory speichere ich ein Zeiger auf die Instanz, falls eine schon vorhanden ist). Gibt es eine einfachere Möglichkeit?

Grüße,
Dimo
  Mit Zitat antworten Zitat