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]

[3_of_8]

Frag mich nicht, wie ich auf GC gekommen bin. Eigentlich meinte ich Sprachen mit einer Klassenstruktur, die das Verstecken eines Konstruktors erlauben.

[Khabarakh]

Achso, ok .

Hätt ich an deiner Stelle jetzt auch behauptet

BTT: Die Sache mit dem Konstruktor würde ich nicht so eng sehen. Das Prinzip der Sichtbarkeit ist klasse, aber soll keine Idiotenabwehr sein. Wer nicht hören will, muss bei "TSingleton.Create" eben fühlen .

[xZise]

Ähm ich habe zwar kein Plan wegen den Singleton Pattern...
Aber ich hätte es jetzt auch ungefähr so gemacht, nur das das Problem ist, dass ich die Instanz irgendwie "weitergeben" muss

[DGL-luke]

naja... dann kannst du auch die Klasse weitergeben. Abstrakte Klasse TSingleton mit der class procedure GetInstance.

@Khabarakh: Bist du dir sicher, dass das so hinhaut? immerhin wirft der konstruktor, und der wird in getinstacne aufgerufen...

[3_of_8]

Zitat von Khabarakh:

Achso, ok .

Hätt ich an deiner Stelle jetzt auch behauptet

BTT: Die Sache mit dem Konstruktor würde ich nicht so eng sehen. Das Prinzip der Sichtbarkeit ist klasse, aber soll keine Idiotenabwehr sein. Wer nicht hören will, muss bei "TSingleton.Create" eben fühlen .

Prinzipiell soll man ja nach dem "Böser User"-Prinzip programmieren, also von einem Benutzer ausgehen, der alles falsch macht, was er falsch machen kann. Daher ist Delphi hier leicht ungeeignet.

[Khabarakh]

@DGL-Luke: Uppsala, das nennt man fehlgeschlagenes Refactoring . Muss natürlich ein Aufruf des privaten Konstruktors sein.

Zitat von 3_of_8:

Prinzipiell soll man ja nach dem "Böser User"-Prinzip programmieren, also von einem Benutzer ausgehen, der alles falsch macht, was er falsch machen kann.

"Böser User" = "Böser Programmer"? Nun, bei Otto-Fatal-Bürger muss man Gande vor Recht walten lassen, aber den Bösen des eigenen Faches wird auf die Fingerchen geklopft, ist doch perfekt .

[3_of_8]

Ja, in gewisser Weise ist ja der Programmierer, der die Unit einbindet, ein User der Unit.

Wenn ich eine Unit/mehrere Units schreibe, interpretiere ich den Programmierer, der es später verwendet, als User. Und dieser User könnte ja ein DAU sein, und der soll möglichst wenig falsch machen können.

[xZise]

Zitat von DGL-luke:

naja... dann kannst du auch die Klasse weitergeben.

Problem => Ich müsste es nach "create" machen