[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

Kurz und würzig, bravo und danke!

MfG

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

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

Upala, stimmt, pdf, danke

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:

markieren

Delphi-Quellcode:

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

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

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

Hallo,

folgendes ist mir aufgefallen:

Zitat:

markieren

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:

markieren

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.

markieren

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:

markieren

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

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