multithreading - Delphi 中增加和返回整数的线程安全方法

Question

在单线程应用程序中，我使用如下代码:

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

这当然可以作为单例对象来实现，等等 - 我只是给出最简单的示例。

问:如何修改此函数(或设计一个类)以从并发线程安全地实现相同的结果？

Answer 1

您可以使用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;