Hilo de seguridad manera de incrementar y devolver un número entero en Delphi

Question

En una aplicación de subproceso único utilizo código como este:

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

Esto podría, por supuesto, ser implementado como un objeto singleton, etc. - I' Estoy simplemente dando el ejemplo más simple posible.

P: ¿Cómo puedo modificar esta función (o diseñar una clase) para obtener el mismo resultado de manera segura a partir de subprocesos concurrentes?

Answer 1

Puede utilizar los Interlocked* funciones:

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

más modernas versiones de Delphi han cambiado el nombre de estos métodos en Atomic* (como AtomicDecrement, AtomicIncrement, etc), por lo que el código de ejemplo se convierte en esto:

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

Answer 2

La manera más fácil sería simplemente llamar al InterlockedIncrement para hacer el trabajo.

Answer 3

Con los compiladores Delphi modernos, es mejor usar la función Increment de la clase TInterlocked de la unidad System.SyncObjs. Algo como esto:

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

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

Esto ayuda a mantener el código independiente de la plataforma.