Singleton in Delphi

[himitsu]

Joar, das Singleton muß hier quasi an der Spitze stehen.
Leider bieten die Generics es nicht an, daß man damit die Basisklasse setzen kann.

Delphi-Quellcode:

TSingleton<Base: class> = class(Base)
  ...
end;

Du kannst es aber manuell selber machen, indem du TObjekt bei TSingleton abänderst.
Man könnte ja zumindestens eine Codevorlage daraus basteln.