[Tutorial] Singletons in Delphi

[Stevie]

Sofern man Delphi 2010 zur Verfügung hat, finde ich diese Implementierung recht interessant.

[mr2]

Das Create scheint nicht das Problem zu sein, eher der erste Parameter.

So geht es bei mir unter Delphi 6:

Delphi-Quellcode:

  InterlockedCompareExchange(Pointer(_Instance), Create, nil);

mr2