Delphi 2007中互锁函数更新后普通读取能否获最新值？

仅通过InterlockedIncrement等互锁函数更新MyInt: Integer，无法保证任意线程的普通读取都能返回最新值，原因主要有两点：

• 处理器缓存不一致：互锁操作只会在执行它的CPU上触发内存屏障，强制该CPU的缓存与主存同步，但其他CPU的缓存不会自动刷新。其他线程所在的CPU可能仍持有旧的缓存值，普通读取会直接从本地缓存取数，得到过期结果。
• 编译器优化干扰：Delphi 2007的编译器会对普通变量的读取做优化，比如把变量值缓存到寄存器中，后续读取直接调用寄存器里的旧值，而不会重新访问内存。

针对这两个问题，我们可以通过以下方式实现安全读取，同时兼顾兼容性和性能：

1. 解决处理器缓存问题：用互锁函数模拟带屏障的读取 #

Delphi 2007没有内置的InterlockedRead函数，但可以利用InterlockedCompareExchange实现带全内存屏障的安全读取。这个函数本身会触发内存屏障，确保读取到的是主存中的最新值，且不会修改目标变量（因为传入的比较值和交换值相同，函数仅返回当前值）：

function InterlockedReadInt32(var Target: Integer): Integer;
begin
  // 比较值和交换值均为0，仅返回Target当前值，同时触发内存屏障
  Result := InterlockedCompareExchange(Target, 0, 0);
end;

所有需要读取MyInt的地方，都调用这个函数代替普通读取，就能保证拿到最新值。

2. 解决编译器优化问题：避免寄存器缓存 #

Delphi 2007不支持volatile关键字，但通过上述InterlockedReadInt32函数读取变量时，编译器会将其视为外部函数调用，不会对返回值做寄存器缓存优化。如果必须直接读取变量（不推荐），可以临时关闭局部优化：

{$O-} // 关闭当前代码块的编译器优化
Temp := MyInt;
{$O+} // 恢复优化

不过这种方式影响范围有限，还是推荐用互锁函数读取的方案更可靠。

• 跨版本/跨平台兼容：将这些封装函数放到独立单元（比如SyncUtils.pas）中，在Delphi新版本中可以直接替换为官方的InterlockedRead或使用volatile变量；ARM平台上Windows的互锁函数（包括InterlockedCompareExchange）已经做了架构抽象，无需修改逻辑，仅需保证单元引用正确即可。
• 性能优势：这种基于互锁函数的方案性能远优于临界区（Critical Sections）或多读者单写者同步对象——互锁操作是用户态指令，无需内核态切换，只有在极端竞争场景下才会有轻微开销，而临界区在竞争时会陷入内核态，性能损耗更大。

内容的提问来源于stack exchange，提问作者Thiago Linhares de Oliveira