{$ 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}

Answer 2

Напишите код для проверки фактического поведения во время выполнения. Только так, как я могу думать.

Answer 3

Существует директива {$ IFOPT A +}, но она не сообщает вам значение выравнивания.

Answer 4

Я считаю, что нет никакого способа сделать это: (