Gewinde sichere Art und Weise eine ganze Zahl in Delphi

Question

In einer Single-Threaded-Anwendung zu erhöhen und kehre ich folgenden Code verwenden:

Interface 
    function GetNextUID : integer; 
Implementation 
    function GetNextUID : integer; 
    const 
     cUID : integer = 0; 
    begin 
     inc(cUID); 
     result := cUID; 
    end; 

Dies natürlich als Singleton-Objekt implementiert werden könnte, usw. - I Ich gebe nur das einfachste mögliche Beispiel.

F: Wie kann ich diese Funktion ändern (oder eine Klasse entwerfen), um das gleiche Ergebnis sicher von gleichzeitigen Threads zu erreichen?

Answer 1

können Sie die Interlocked* Funktionen nutzen:

function GetNextUID : integer; 
    {$J+} // Writeble constants 
    const 
     cUID : integer = 0; 
    begin 
     Result := InterlockedIncrement(cUID); 
    end; 

Modernere Delphi-Versionen diese Methoden in Atomic* umbenannt (wie AtomicDecrement, AtomicIncrement, etc.), so dass der Beispielcode wird dieses:

function GetNextUID : integer; 
    {$J+} // Writeble constants 
    const 
     cUID : integer = 0; 
    begin 
     Result := AtomicIncrement(cUID); 
    end; 

Answer 2

Der einfachste Weg wäre wahrscheinlich, nur InterlockedIncrement zu rufen, um die Aufgabe zu erledigen.

Answer 3

Mit modernen Delphi-Compilern ist es besser, Increment Funktion der Klasse TInterlocked von Einheit System.SyncObjs zu verwenden. Etwas wie dieses:

type 
    TMyClass = class 
    class var 
     FIdCounter: int64; 
    var 
     FId: int64; 
    constructor Create; 
    end; 

constructor TMyClass.Create; 
begin 
    FId := TInterlocked.Increment(FIdCounter); 
end; 

Dies hilft, den Code plattformunabhängig zu halten.