delphi - 如何在 Delphi 中自动设置 bool 值？

Question

AtomicExchange 需要 Integer 或 NativeInt 变量，但我如何使用它(或类似的东西)以线程安全的方式设置 bool 值 - 或者是否需要它？

Answer 1

Delphi Boolean 是一个字节值，不能与 Atomic API 一起使用，因为它们对 32 位值进行操作。

您可以使用 BOOL 来代替，它是一个 32 位 bool 值，如下所示:

var
  b: bool;
begin
  b := False;

  // true
  AtomicIncrement(Integer(b));

  // false
  AtomicDecrement(Integer(b));

但是，递增有点危险，因为递增两次(类似于分配 True 两次)并递减一次意味着值 > 0，因此仍然为 True。

替代方案可能是这样的:

  // false
  AtomicExchange(Integer(b), Integer(False));

  // true
  AtomicExchange(Integer(b), Integer(True));