在Delphi中实现双重检查锁定是可行的还是合理的？

Question

正如我所知，有两种常见的做法可以确保延迟初始化的线程安全：

1. Double-checked锁定(将变量标记为易失性以避免内存ordering)
2. InterlockedCompareExchangePointer

)

似乎VCL使用了第二种实践。有什么理由吗？

class function TEncoding.GetUTF8: TEncoding;
var
  LEncoding: TEncoding;
begin
  if FUTF8Encoding = nil then
  begin
    LEncoding := TUTF8Encoding.Create;
    if InterlockedCompareExchangePointer(Pointer(FUTF8Encoding), LEncoding, nil) <> nil then
      LEncoding.Free;
  end;
  Result := FUTF8Encoding;
end;

还是有更好的方法？

谢谢!

Answer 1

速度不应该有太大差别。在这两种方法中，首先检查全局字段是否已初始化，并仅在需要时执行初始化。因此，大多数情况下，函数只会进行比较、跳转、移动，而不进行任何初始化。

当执行初始化时，InterlockedCompareEtc比锁定有两个优点。

1. 它更快。
2. 代码更短(不需要初始化锁等等)。

我发现InterlockedCompareEtc方法“更整洁”并在我的代码中使用它。但锁定也同样有效。