[Tutorial] Singletons in Delphi

[MisterNiceGuy]

Hallo alle miteinander,

ich habe heute mal ein kurzes Tutorial über Singletons in Delphi geschrieben.
Das ganze umfasst eine kurze Erklärung über den Begriff "Singleton" und eine
Beispielimplementierung. Ich habe versucht das ganze so einfach wie möglich zu
halten

Runterladen kann man das ganze hier und auf meinem Blog: klick

[Aphton]

Kurz und würzig, bravo und danke!

MfG

[freak4fun]

Müsste das auf deiner Seite nicht download (pdf, 17kb) statt download (pfd, 17kb) heißen?

[Teekeks]

Ich schließe mich da voll und ganz Aphton an.

[MisterNiceGuy]

Upala, stimmt, pdf, danke

[Stoney]

Gutes Tutorial.

Zwei Anmerkungen hätte ich allerdings noch:
var g_BK:Tbundeskanzler; sollte besser nach "implementation" deklariert werden, damit der Entwickler nicht versehentlich direkt auf g_BK zugreifen kann.

Der Delphi-Compiler schreibt zurecht eine Warnung aus, dass der Konstruktor nicht in private deklariert werden sollte. Am besten solle es so aussehen:

Delphi-Quellcode:

{$WARNINGS OFF}
constructor Create;
{$WARNINGS ON}

[MisterNiceGuy]

Oh okay, die Warnung bekommen ich in D7 nicht Danke für die Tips, werd's noch einarbeiten!

[scrat1979]

Das Tutorial kommt wie gerufen für mich Danke Dir...

SCRaT

P.S.: Habe im Netz im Rahmen meiner Recherchen noch einen Singleton gefunden, in dem die Anzahl der Instanzen noch gespeichert wird, und wenn die letzte Instanz
(d.h. InstanceCount = 0), dann wird der Speicher komplett freigegeben. Fand ich auch eine "schöne" Sache...

[mr2]

Hallo,

folgendes ist mir aufgefallen:

Zitat:

Delphi-Quellcode:

var BK:TBundeskanzer;
begin
  // BK muss natürlich zuvor noch initialisiert werden
  TBundeskanzer.getInstance; // Funktion steht zur Verfügung
  BK.getInstance; // Funktion wird nicht gefunden
end;

Das ist so nicht korrekt, class functions (& procedures) können in Delphi sehr wohl auch auf einer Instanz aufgerufen werden.

Zitat:

Delphi-Quellcode:

Destructor TBundeskanzler.destroy;
begin
  if g_BK = self then
    g_BK := nil;
  inherited destroy;
end;

Die Prüfung auf "g_BK = Self" kannst Du Dir sparen (es ist ja ein Singleton).
Statt dessen finde ich es sinnvoller im Destruktor eine Exception ausgelöst werden, damit niemand (aus Versehen oder absichtlich) die Singleton-Instanz zerstört.

Delphi-Quellcode:

destructor TBundeskanzler.destroy;
begin
  raise Exception.Create('Singleton darf nicht zerstört werden!');
end;

Die Methode getInstance sollte nach Möglichkeit Threadsicher gestaltet werden, damit beim gleichzeitigen Zugriff durch zwei Threads beide die selbe Instanz erhalten:

Delphi-Quellcode:

Function TBundeskanzer.getInstance:TBundeskanzler;
begin
  if (g_BK = nil) // statt TBundeskanzler.create reicht auch nur Create
  then InterlockedCompareExchange(g_BK, Create, nil); 
  Result := g_BK;
end;

mr2

[TBx]

Zitat von scrat1979:

Habe im Netz im Rahmen meiner Recherchen noch einen Singleton gefunden, in dem die Anzahl der Instanzen noch gespeichert wird, und wenn die letzte Instanz (d.h. InstanceCount = 0), dann wird der Speicher komplett freigegeben. Fand ich auch eine "schöne" Sache...

ähm, räusper ...

das widerspricht sich total. Von einem Singelton kann es nicht mehr als eine Instanz geben, sonst wäre es ja keines .....