Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.608 Beiträge
 
Delphi 10.4 Sydney
 
#3

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

  Alt 10. Apr 2020, 13:07
Früher gab es MSDN-Library durchsuchenInterlockedCompareExchange bzw. MSDN-Library durchsuchenInterlockedCompareExchangePtr,
das kapselte Delphi dann mal als Delphi-Referenz durchsuchenTInterlocked,
aber man darf auch gern das neuere multi-platforme Delphi-Referenz durchsuchenAtomicCmpExchange 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)

Delphi-Quellcode:
if not Assigned(XXX) then begin
  NEW := TIrgendwas.Create;
  if AtomicCmpExchange(XXX, NEW, nil) <> nil then
    NEW.Free;
end;
XXX.DoSomething;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (10. Apr 2020 um 13:20 Uhr)
  Mit Zitat antworten Zitat