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

Question

众所周知,有两种常见的做法可以确保延迟初始化的线程安全性:

1. 双重检查锁定(将变量标记为volatile以避免内存排序)
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 方法“更简洁”，并在我的代码中使用它。但锁定效果同样好。