德尔福 – {$IFOPT A4}？

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

导读：在Delphi 2009(或更早版本)中,如何检查代码中的“Align”编译选项？ IFOPT指令似乎只适用于纯交换机({$IFOPT A4}无法编译). 我找不到等效的常数或这样的定义({$IF Align = 4}或者等等) 解决方法您可以通过使用已知的打包规则定义记录并使用SizeOf进行检查来

在Delphi 2009(或更早版本)中,如何检查代码中的“Align”编译选项？

IFOPT指令似乎只适用于纯交换机({$IFOPT A4}无法编译).

我找不到等效的常数或这样的定义({$IF Align = 4}或者等等)

解决方法

您可以通过使用已知的打包规则定义记录并使用SizeOf进行检查来完成此操作.在Delphi 2009中测试：

type
  TTestRec = record
    A: Byte;
    B: Int64;
  end;

{$IF SIZEOF(TTestRec) = 9}
  {$MESSAGE HINT '$A1'}
{$ELSEIF SIZEOF(TTestRec) = 10}
  {$MESSAGE HINT '$A2'}
{$ELSEIF SIZEOF(TTestRec) = 12}
  {$MESSAGE HINT '$A4'}
{$ELSEIF SIZEOF(TTestRec) = 16}
  {$MESSAGE HINT '$A8'}
{$ELSE}
  {$MESSAGE HINT 'Unknown alignment'}
{$IFEND}

（编辑：李大同）

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