Singleton in Delphi

[Stevie]

Zitat von himitsu:

Also du hast eine Klasse in einer anderen Klasse/Record verpackt.
(wobei man dort eben auch noch aufpassen muß, daß man dieses gekapselte Objekt nicht extern freigibt)

Und genau das hab ich ja verhindert. Ich habe quasi soweit mit Delphi möglich

Delphi-Quellcode:

TSingleton<T> = class<T>
  ...
end;

gebaut, denn genau das, was den Singleton ausmacht ist, nämlich, dass nur einmal eine Instanz erzeugt wird und verhindert wird, diese freizugeben, ist gegeben.

[himitsu]

Irgendwie wird in meinem D2010 dein Class-Constructor nicht aufgerufen.
Folglich bleibt die Instanz immer nil und beim Zugriff darauf knallt es dann immer.

[Stevie]

Zitat von himitsu:

Irgendwie wird in meinem D2010 dein Class-Constructor nicht aufgerufen.
Folglich bleibt die Instanz immer nil und beim Zugriff darauf knallt es dann immer.

Zeig ma bitte, wie du den Singleton erstellt hast.

[himitsu]

Erst hatte ich was Eigenes versucht, aber auch mit deinem Beispielcode aus'm Post #1 (mit TStringList statt TFoo) geht's nicht.

[Stevie]

Zitat von himitsu:

Erst hatte ich was Eigenes versucht, aber auch mit deinem Beispielcode aus'm Post #1 (mit TStringList statt TFoo) geht's nicht.

Konsolenanwendung? Hab gerade gemerkt, dass dort was schief läuft, schau ich mir nachher mal zu Hause an. In ner VCL Forms Anwendung läufts bei mir.

[himitsu]

War 'ne GUI-Anwendung, aber ohne Formulare.

[Stevie]

War ja klar, dass es mal wieder nen Bug in Delphi ist (der übrigens scheinbar in XE nicht gefixt ist!)

Also nicht in die dpr sondern in ne eigene Unit und schon läufts

P.S.: Witzig, dass der Fehler scheinbar ausgerechnet mit nem TSingleton<T> aufgefallen ist.