如何在Delphi中以原子方式设置布尔值？

一、怎么用AtomicExchange实现线程安全的布尔值设置 #

AtomicExchange本身只支持Integer/NativeInt这类整数类型，但我们可以用整数映射布尔值的简单方式适配：用0代表false，1代表true，借助AtomicExchange的原子性完成线程安全的赋值操作。

举个实际的代码示例（以支持AtomicExchange的语言环境为例）：

// 用整数变量模拟布尔状态，0=未运行(false)，1=运行中(true)
var IsRunning: Integer;

// 原子地将IsRunning设为true，同时返回之前的状态
var PreviousState := AtomicExchange(IsRunning, 1);
if PreviousState = 0 then
begin
  // 说明之前状态是未运行，现在成功切换为运行中
  DoCriticalOperation();
end;

如果只是单纯设置布尔值、不需要获取旧状态，直接调用即可：

// 原子操作强制将状态设为false
AtomicExchange(IsRunning, 0);

要是需要更复杂的逻辑（比如“只有当前状态为false时才改为true”），可以搭配AtomicCompareExchange（CAS操作）实现，比单纯的Exchange更灵活：

// 循环尝试将IsRunning从0改为1，直到成功
while AtomicCompareExchange(IsRunning, 1, 0) <> 0 do
begin
  // 当前状态已被其他线程设为1，可在此等待或做其他处理
end;

二、有没有必要这么做？ #

这完全取决于你的并发场景：

• 必须使用的情况：如果有多个线程会同时读写这个布尔值，那一定要用原子操作（或临界区、互斥量这类同步机制）。比如多个线程竞争一个“是否允许执行”的标记，不用原子操作可能出现两个线程同时读取到false、进而都执行后续逻辑的竞态问题——这会导致数据错误或逻辑混乱。
• 没必要使用的情况：如果只有单线程读写该布尔值，或者仅一个线程负责写入、其他线程只读（且能确保写入操作在CPU层面是原子的，比如多数现代CPU上单个字节的写入是原子的），普通布尔赋值就足够了，原子操作反而会带来不必要的开销。

最后要注意：原子操作的核心价值是保证“读-改-写”这类复合操作的不可中断性，如果你只是单纯赋值，某些场景下普通赋值也能工作，但用AtomicExchange能让代码在所有平台和并发场景下都保持安全，无需依赖CPU架构特性。

内容的提问来源于stack exchange，提问作者Jouni Aro