Директива компілятора Delphi $A – визначає дані будуть вирівняні чи запаковані

$A — визначає будуть дані вирівняні чи запаковані.

Приклад коду: Упаковка запису для зменшення пам'яті

type
  // Використовуйте стандартні налаштування : $A+
  //Оголошення невпакованого, вирівняного запису
  TAlignedRecord = Record
    name1   : string[4];
    floater : single;
    name2   : char;
    int     : Integer;
  end;

  // Оголошення упакованого запису
  TPackedRecord = Packed Record
    name1   : string[4];
    floater : single;
    name2   : char;
    int     : Integer;
  end;

  // Встановлення вирівнювань в Off (вимк.)
  {$A-}

  // Оголошення розпакованого запису
  // Він буде оброблений ніби упаковка була включена
  TUnPackedRecord = Record
    name1   : string[4];
    floater : single;
    name2   : char;
    int     : Integer;
  end;

var
  alignedRec  : TAlignedRecord;
  packedRec   : TPackedRecord;
  unPackedRec : TUnPackedRecord;

begin
  ShowMessage('Розмір вирівняного запису = '+IntToStr(SizeOf(alignedRec)));
  ShowMessage('Розмір упакованого запису= '+IntToStr(SizeOf(packedRec)));
  ShowMessage('Розмір неупакованого запису = '+IntToStr(SizeOf(unPackedRec)));
end;