Design Paddern Singelton - Oder wie verstecke ich Create?

[hoika]

Hallo,

so.

Delphi-Quellcode:

unit Bla;

function CreateClass: TMyClass;

interface

implementation

var
  FMyClass: TMyClass;
  bWasCreated: Boolean;

function CreateClass: TMyClass;
begin
  if not bWasCreated then
  begin
    FMyClass:= TMyClass.Create;
    bWasCreated:= True;
  end;
  Result:= FMyClass;
end;  

// Initialisierung muss nicht sein, macht Delphi selber (?)
begin
  FMyClass    := NIL;
  bWasCreated := False;
end;

Aufruf erfolgt per CreateClass und zwar sooft du willst.
Es gibt auch den Ansatz, einfach per <>NIL zu prüfen, der gefällt mir aber nicht so.


Heiko