Implementierung TSingleton für thread-safety (z.B. Spring4D)

**himitsu**

Früher gab es MSDN-Library durchsuchen

InterlockedCompareExchange bzw. MSDN-Library durchsuchen

InterlockedCompareExchangePtr,
das kapselte Delphi dann mal als Delphi-Referenz durchsuchen

TInterlocked,
aber man darf auch gern das neuere multi-platforme Delphi-Referenz durchsuchen

AtomicCmpExchange der System-Unit verwenden, mit bissl compilermagic bei der Typenbehandlung

Jo, schauen ob leer,
wenn ja, dann erstellen,
die Referenz threadsicher eintragen/austauschen, was mit einer atomaren Operation am Einfachsten geht (Interlocked, Atomic oder LOCK im Assembler)
und wenn nicht erfolgreich, dann die Instanz wieder freigeben. (falls ein anderer Thread das gleichzeitig gemacht hatte und schneller war)

markieren

Delphi-Quellcode:

			if not Assigned(XXX) then begin

  NEW := TIrgendwas.Create;

  if AtomicCmpExchange(XXX, NEW, nil) <> nil then

    NEW.Free;

end;

XXX.DoSomething;

Implementierung TSingleton für thread-safety (z.B. Spring4D)

AW: Implementierung TSingleton für thread-safety (z.B. Spring4D)

Forumregeln