Eine Variable für alle Units zugänglich machen?

[Khabarakh]

Zitat von Pfoto:

Aber welchen echten praktischen Vorteil hätte es wenn ich davon
ausgehen könnte, das während des Programmablaufs *nicht* unbeabsichtigt
mehrere Instanzen erstellt werden?

Das ist für mich persönlich gar nicht der springende Punkt des Pattenrs, sondern eher der zentrale Zugriff auf die einzige Instanz. Bei deiner Lösung würde mich stören, dass ich nicht sicher sein kann, dass das Objekt schon erstellt wurde (da es eben in einer fremden Unit initialisiert werden muss) und ich die globale Variable natürlich jederzeit ändern könnte. Echte Kritikpunkte sind das natürlich nicht, eher einfach Frage des Geschmacks bzw. wie du sagtest des Prinzips, und das heißt bei mir "hide information where possible" .

@DGL-Luke:

Delphi-Quellcode:

type
   TFFA = class
   strict private
      class var FInstance: TFFA;
      constructor InternalCreate;
      class function GetInstance: TFFA; static;
   public
      class property Instance: TFFA read GetInstance;
      constructor Create;
   end;


{ TFFA }

constructor TFFA.Create;
begin
   raise SingletonException.Create(TFFA);
end;

class function TFFA.GetInstance: TFFA;
begin
   if not Assigned(FInstance) then
      FInstance := TFFA.InternalCreate;
   Result := FInstance;
end;

constructor TFFA.InternalCreate;
begin
   ...
end;

Genausogut mit Eager Creation möglich. Dasimho einzig Unschöne ist der öffentliche Konstruktor, aber TObject.Create ist nunmal dämlicherweise public.

[add] In ähnlicher Weise natürlich auch mit Versionen < 2006 möglich. [/add]

[add id="1"]
@3/8:
Für das Singleton-Pattern wird man in jeder Sprache eine globale Variable bzw. ein statisches Feld benötigen und solche sind in den allermeisten Sprachen Garbage-Collection-Roots, also nicht wegfegbar bis zur Terminierung.
[/add]