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

    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!

Leave a Reply

Your email address will not be published. Required fields are marked *