线程安全的增量和返回Delphi中整数的方法

您可以使用 Interlocked* 功能:

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

更现代的Delphi版本将这些方法重命名为 Atomic* (像 AtomicDecrement , AtomicIncrement 等),因此示例代码变为:

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

最简单的方法可能是打电话 InterlockedIncrement 做这项工作。

使用现代Delphi编译器时,最好使用 Increment 类的功能 TInterlocked 来自Unit System.Syncobjs。像这样:

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

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

这有助于保持代码平台的独立性。