delphi - Delphi 2007和XE2:使用NativeInt

从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平台中工作？

最佳答案

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

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

它应该每单位执行一次，并且可以作为通用* .inc文件的一部分来实现。