Задать константу в двоичной системе

[Kronos913]

Можно ли как-то задать константу в двоичной системе?

В десятичную, или даже шестнадцатеричную не всегда удобно переводить число

Особенно если byte используется как компактно сжатый массив булевых переменных

[BDA]

Только в Delphi 11 2021 года появились двоичные литералы с префиксом %.

[Vapaamies]

Сообщение от Kronos913

Особенно если byte используется как компактно сжатый массив булевых переменных

Внимание, правильный компактно сжатый массив булевых переменных:

type
  BoolArray = set of (Bool1, Bool2, Bool3); // и так далее; именуем значения по смыслу, естественно

Если значений в перечислении не больше 32, переменная данного типа занимает ровно один Integer (или меньше) и передается по значению через регистр. Встроенные процедуры (макросы компилятора) компилируются в одну ассемблерную инструкцию:

var
  B: BoolArray = [];
begin
  Include(B, Bool1);  // OR BL, $01
  Exclude(B, Bool1);  // AND BL, $FE
end;

Появились еще в Turbo Pascal 7.0, работают во всех версиях Delphi.

[Kronos913]

А если нужно именно чтобы байт?

Просто у меня файл читается по одному байту, а в каждый байт запакованы 8 булеанов

Но есть несколько "устойчивых значений", при которых этот байт имеет другую обработку. И вот эти устойчивые значения было бы удобнее ввести в двоичной

case a of
       0: begin
             {код исключения 1}
           end;
   224: begin
             {код исключения 2}
           end; 
    else begin
             {основной код}
           end;
end;

И вот то 224 было бы удобнее ввести в двоичной 11100000

[Vapaamies]

Сообщение от Kronos913

А если нужно именно чтобы байт?

Регистр BL — не байт? В примере я описал тип из 3 бит, компилятор отвел ему байт, потому что по умолчанию {$MINENUMSIZE 1}, больше обычно для совместимости с кодом на Си ставят.

Сообщение от Kronos913

Но есть несколько "устойчивых значений", при которых этот байт имеет другую обработку.

type
  BoolArrayVariant = record
    case Byte of
      0: (AsBits: BoolArray);
      1: (AsByte: Byte);
  end;

const
  BitNull = 0;
  BitMagic = 224;

begin
  case A.AsByte of
    BitNull:
      ...
    BitMagic:
      ....
  else
    if Bool1 in A.AsBits then
      ...
  end;
end;

Лучше всегда использовать не числа, а именованные константы, для «магических» значений-то — уж точно!