Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#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.
my Delphi wish list : BugReports/FeatureRequests

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