Директива компилятора Delphi $MinEnumSize – устанавливает минимальную память, используемую для хранения перечислимых типов

Директива $MinEnumSize компилятора Delphi устанавливает минимальную память, используемую для хранения перечислимых типов.

Директива компилятора $MinEnumSize: Различные размеры перечислимых типов

type
  {$MinEnumSize 1}
  TCars1  = (Rover, Jaguar, Honda);    // Впишется в 1 байт
  TFruit1 = (Banana=255, Apple, Pear); // Превысит один байт

  {$MinEnumSize 4}
  TCars2  = (Ford, Nissan, Vauxhall);  // Теперь используется 4 байта
  TFruit2 = (Orange=255, Plum, Grape); // Теперь используется 4 байта

begin
  ShowMessage('Размер TCars1 = '+IntToStr(SizeOf(TCars1)));
  ShowMessage('Размер TFruit1 = '+IntToStr(SizeOf(TFruit1)));
  ShowMessage('Размер TCars2 = '+IntToStr(SizeOf(TCars2)));
  ShowMessage('Размер TFruit2 = '+IntToStr(SizeOf(TFruit2)));
end;