sGroupBox.Checked TINYINT(1) - Почему записывает "-1"?

[iskurt]

Мужики, подскажите, как выкрутиться?
Есть компонент sGroupBox.Checked - в базу записывается в поле с типом TINYINT(1).
Вот задача: Записывает как ("-1" - True, "0" - False), соответственно при считывании из базы в любом случаем sGroupBox.Checked - False.
Блин, почему -1 это True?

Если в базе руками проставлять 0 или 1 - то тогда считывается всё правильно.

Я понимаю, что можно выкрутиться, написать условия для правильного перехвата, но почему такие грабли?

[Аватар]

А как записываешь?

[iskurt]

var rabota : Bool;
...
SQL.Add('rabota = :rabota,');
Parameters.ParamByName('rabota').Value := rabota;

[Аватар]

BOOL - почему не Boolean?

Parameters.ParamByName('rabota').Value := Byte(rabota);

[iskurt]

Сообщение от Аватар

BOOL - почему не Boolean?

Видимо я еще мало знаю, но при попытке установить Boolen - ошибка, "Незадекларированные идентификатор Boolen"
А на счет byte, щас попробую, но я даже и не знал этого... признаю

[Аватар]

Boolen - ошибка

Boolean

[iskurt]

Сообщение от Аватар

Parameters.ParamByName('rabota').Va lue := Byte(rabota);

Out of Range - блин, я нахожу идиотский тип TINYINT(1).

[Аватар]

Boolean

я нахожу идиотский тип

не более идиотский чем любой другой тип ))

[iskurt]

Сообщение от Аватар

Boolean

Ах да, очепятка... .без разницы... всё равно записывает -1
Снимок.PNG

[Аватар]

Не знаю что пишешь. Просто для Bool ord(True)=-1, а для Boolean ord(True)=1. Для Bool тот Byte и выдал ошибку приведения типа. Ord(False)=0 и для BOOL, и для Boolean