德尔福 2007 和 XE2 : Using NativeInt

Question

从Delphi XE2开始，NativeInt有了新的含义。在 32 位运行时，NativeInt 是 32 位整数。在 64 位运行时，NativeInt 是 64 位整数。

我有一些使用第三方 DLL(32 位和 64 位)的源文件。这些 DLL 在 32 和 64 平台上分别使用 32 和 64 位整数。

这些源文件在 Delphi 2007 - Delphi XE2 32 位平台上运行没有问题:

例如:

function Test: Integer;

当我尝试将这些源文件迁移到 Delphi XE2 64 位平台时，上述函数不再起作用，因为它需要 64 位整数。为了使源代码适用于 32/64 平台，我更改为

function Test: NativeInt;

而且它有效。

但是，该声明在 Delphi 2007 中不起作用，因为 Delphi 2007 将 NativeInt 视为 64 位整数:SizeOf(NativeInt) = 8

我可以通过使用条件指令 RtlVersion 或 CompilerVersion 来解决问题

function Test: {$if CompilerVersion<=18.5}Integer{$else}NativeInt{$ifend};

但这会很乏味，因为源文件中有很多声明。

有没有更好的方法让源文件在Delphi 2007-XE2 win32和XE2 win64平台上工作？

Answer 1

更好的选择是重新声明 NativeInt 类型本身:

{$if CompilerVersion<=18.5}
type
  NativeInt = Integer;
{$ifend}

每个单元应该执行一次，并且可以作为公共(public) *.inc 文件的一部分实现。