Delphi 2007和XE2：使用NativeInt

发布时间：2020-12-15 10:10:30 所属栏目：大数据来源：网络整理

导读：由于Delphi XE2,NativeInt具有新意义.在32位运行时,NativeInt是32位整数.在64位运行时,NativeInt是64位整数. 我有一些源文件使用第三方DLL(32位和64位).这些DLL分别在32和64平台中使用32位和64位整数. 这些源文件适用于Delphi 2007 – Delphi XE2 32位平台,

由于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文件的一部分.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!