[Tutorial] Singletons in Delphi

2 thoughts on “[Tutorial] Singletons in Delphi”

1. Du kannst den von TObject geerbten Konstruktor nicht verstecken!
   Was ist mit :
   
var
bk1, bk2, bk3 : TBundeskanzler;
begin
bk1 := TBundeskanzler.getInstance;
(Nun rufe ich den geerbten Konstruktor von TObject auf, deinen hast du ja "versteckt")
bk2 := TBundeskanzler.Create;
bk3 := TBundexkanzler.Create;
end

   jetzt habe ich 3 Bundeskanzler. Geschweige das diese einen Namen Tragen.
   Das sieht mir nach einem Blind abgetippten JAVA/C# Muster aus.
   In Delphi arbeitest du besser zusätzlich mit einer Exception im PUBLIC Konstruktor, z.B:
   
if Assigned(g_BK) then
raise Exception.Create('Nur eine Instanz bitte')
else
g_BK := self;


   Greetz Mike

   Reply

   1. Hi Mike, danke für den Hinweis. Ich habe leider seit Langem nichts mehr mit Delphi gemacht und kann’s auch so ohne weiteres nicht nachvollziehen. Ich denke aber, dass es für alle die sich mit dem Thema beschäftigen ein sinnvoller Tipp ist!

      Reply