Question

我在x64中找不到关于TVarData的任何解释。帮助中有一个页面，但似乎x64中的TVarData和x86中的TVarData不同。实际上我正在尝试为x64目标编译DEHL。但它在这一行上说“无效的类型转换”:(来源是TVarData）

Big := TBigCardinalVarData(Source).BigCardinalPtr^;

TBigCardinalVarData在这里：

TBigCardinalVarData = packed record
  VType: TVarType;
  Reserved1, Reserved2, Reserved3: Word;
  BigCardinalPtr: PBigCardinal;
  Reserved4: LongWord;
end;

它在x86中编译，但它拒绝在x64中编译。我认为问题出在Word和LongWord变量中。但我还没想到它。

Answer 1

问题是packed record声明，X64中的打包记录类型变为记录类型，因此您必须从声明中的“压缩记录”中删除“压缩”，而是使用ALIGN指令

{$ALIGN 8}
TBigCardinalVarData = record
  VType: TVarType;
  Reserved1, Reserved2, Reserved3: Word;
  BigCardinalPtr: PBigCardinal;
  Reserved4: LongWord;
end;

了解更多信息阅读这些条目

TVarData x86和x64 Delphi之间的差异

1 个答案: