delphi - {$IFOPT A4}？

Question

在Delphi 2009(或更旧版本)中，如何检查代码中的“对齐”编译选项？

IFOPT 指令似乎仅适用于纯开关({$IFOPT A4} 无法编译)。

我找不到等效的常量或此类定义({$IF Align = 4} 或此类)

Answer 1

您可以通过使用已知的打包规则定义记录并使用 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}