Singleton in Delphi

[Stevie]

Ein kleines Nebenprodukt was beim Experimentieren in Delphi 2010 entstanden ist.
Ich weiß, Singletons sind böse...

Trotzdem hier mal eine ab Delphi 2010 funktionierene (evtl auch Delphi 2009 oder eher) Unit, die aus einer normalen Klasse ein Singleton macht, wovon weder ein zweites mal eine Instanz erzeugt noch die bestehende Instanz freigegeben werden kann. Hab es bisher im kleinen Stil getestet und dachte, evtl interessiert sich hier der eine oder andere für son krankes Zeug

Die Benutzung ist denkbar einfach, nachfolgend kurz, was so alles funktioniert:

Delphi-Quellcode:

uses
  Singleton;

type
  TFoo = class
  private
    FText: string;
  public
    property Text: string read FText write FText;
  end;

type
  TFooSingleton = Singleton<TFoo>;

var
  FooSingleton: Singleton<TFoo>;
  Foo: TFoo;
begin
  Foo := FooSingleton;
  TFooSingleton.Instance.Text := 'Hello Foo';
  ShowMessage(Foo.Text);
end;

Die Instanz der Klasse wird beim Starten des Programms (ich vermute in Initialization Reihenfolge der Units, genau hab ich es noch nicht getestet) erstellt und beim Beenden (Finalization der Unit Singleton.pas) wieder freigegeben. Der VMT Hack wird vorher schon (Vermutung: finalization der Unit wo der jeweilige Singleton benutzt wird) entfernt.

[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.

[himitsu]

Ist das'n Bug in Verbindung mit den Generics?
Auf den DT wurde ja groß behauptet gesagt, daß man in XE alle Generics-Bugs behoben hat (aber die 3 neuen Bugmeldungen hatte man wohl noch nicht entdeckt).

[Stevie]

Zitat von himitsu:

Ist das'n Bug in Verbindung mit den Generics?

Vermutlich, Alex Ciobanu hat dazu mal was geblogt.

P.S.: Da seh ich auch gerade, dass das Feature mit class contructor/destructor nen Delphi 2010 Feature ist.

[himitsu]

Zitat von Stevie:

P.S.: Da seh ich auch gerade, dass das Feature mit class contructor/destructor nen Delphi 2010 Feature ist.

Das hätt ich dir auch so sagen können.
(rate mal, warum ich 2 Versionen gepostet hatte )

[himitsu]

Zitat:

If TDistinctType<String> is used in multiple units, each unit’s version has it own FMarker, which means it needs to be initialized for each unit.

Das würde doch auch bedeuten, daß jede Unit ihr eigenes Singleton hätte.

Ich glaub hier sollte man dieses nochmals prüfen/ändern.