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]