Boolean как byte

[Kronos913]

Есть переменная типа булеан

var
b:boolean

Часто в программе в какой-то формуле было использовать 0, или 1 в зависимости от значения этой переменной. И использовал такой вот массив:

const
  s_f0t1 : array [false..true] of byte = (0, 1);

И в программе внутри формул делал так

s_f0t1[b]

Недавно интереса ради попробовал так и оно откомпилировалось

byte(b)

Вопрос: всегда ли будет корректно работать byte(b)?
Или могут быть проблемы и ошибки по какой-то причине?

[BDA]

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

всегда ли будет корректно работать byte(b)?

Да.

[Arigato]

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

Да.

Нет. Пример:

  b:=boolean(5);
  writeln(byte(b));

Ответ: byte(b) = 5.

[BDA]

Arigato, спасибо за интересный пример. Но с такой инициализацией boolean и подход ТСа с массивом не поможет. Если же инициализировать честными false или true, то результат будет 0 и 1 всегда.

[Kronos913]

Ну я имел в виду примеры в роде такого

a:=b + c*byte(checkbox1.checked);

[Arigato]

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

Если же инициализировать честными false или true

Учитывая тот набор извращений, который ТС показывал в прочих темах, ничего удивительного, если у него в булевской переменной окажется что-то отличное от 0 или 1

[BDA]

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

в булевской переменной окажется что-то отличное от 0 или 1

"Число Пи в военное время достигает четырех!"

[Kronos913]

Дало сбой. При том что код был

a:=2+Byte(ChechBox.Checked)

а - байт, который использовался как адрес в массиве

И такой код начал выдавать значения Byte(ChechBox.Checked) за пределами 0-1

[Arigato]

У вас стоит задача написать как можно более извращенный код?

if ChechBox.Checked then a:=3 else a:=2;

[BDA]

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

Дало сбой. При том что код был

Если у вас есть воспроизводимый пример, то можно посмотреть в дебаге, что там за ассемблерный код и содержимое регистров. Геттер GetChecked записывает в результирующий регистр 0 или 1 (используя команды cmp и setz).
Или перепишите код, как предлагает Arigato.