delphi - 无法使用 TMemoryStream 读取 bool 值

Question

我正在尝试使用这样的简单代码行读取 bool 值:ReadBuffer(Result, 1)。

阅读后，结果为真。然而

Result:= not Result

不会“切换”值 false。
我在这里显然犯了一个基本错误。

完整代码:

TYPE
  TCMemStream= class(TMemoryStream)
    public
     function  ReadBoolean: Boolean;
  end;


function TCMemStream.ReadBoolean: Boolean;
begin
 ReadBuffer(Result, 1);
 Result:= NOT Result;    <-------- after executing this line, Result has the same value
 Result:= false;      <----- this works
end;

Answer 1

Boolean 的有效值是 0 和 1。如果将不同的值放入 Boolean变量，那么 future 的行为是未定义的。

你应该读入一个字节变量b并分配 b <> 0进入Boolean .或者通过将字节转换为 ByteBool 来清理.或者您可以选择验证从文件中读取的值并拒绝 0 以外的任何内容。和 1 .