{$ IFOPT A4}？

Question

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

该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}