freepascal.ru

Делали с учащимися микропроект в Lazarus по учебнику (Delphi).
Помимо прочего, задание включает следующий алгоритм:
1. Считываем из двух текстовых полей нули или единицы.
2. Выполяем логическую операцию (and или or).
3. Результат отображаем в метке.

Для преобразования string в boolean и обратно используем функции StrToBool и BoolToStr соответственно.

Удивляюсь, когда оказывается, что BoolToStr возвращает '-1', а не '1', если переданная ей лог.переменная имеет значение true.
Приходится "обходить" '-1' примерно так:

Код: Выделить всё

...
var and1:boolean;
...
and1 := StrToBool(Edit1.Text) and StrToBool(Edit2.Text);
if and1 := true then Label1.Caption := '1'
else Label1.Caption := '0';
...


Может быть не надо так делать и есть другая функция, которая возвращает '1'?
Почему StrToBool превращает '1' в true, а BoolToStr превращает true в '-1'?

Вот описание функции:
http://www.freepascal.org/docs-html/rtl ... tostr.html
Чтобы получить 'True' или 'False', надо вызвать функцию со вторым параметром =True.
Также можно подсунуть ей свои строки для 'True' и 'False'...

Честно говоря меня эта фича-бага тоже всегда удивляла, только вот непонятно, откуда у нее ноги растут.

Всё очень просто:

• False = 0;
• True = любое отличное от 0.

Ноги растут из того, что not 0 = -1 ($FFFF... в зависимости от размерности)

svk12 писал(а):Вот описание функции:
http://www.freepascal.org/docs-html/rtl ... tostr.html
Чтобы получить 'True' или 'False', надо вызвать функцию со вторым параметром =True.
Также можно подсунуть ей свои строки для 'True' и 'False'...

Т.е. код может выглядеть так, если требуется вывести строки 'True' или 'False':

Код: Выделить всё

...
var a:boolean;
...
a := StrToBool(Edit1.Text) and StrToBool(Edit2.Text);
Label1.Caption := BoolToStr(a,true);
...


Или так, если выводим '1' или '0':

Код: Выделить всё

...
Label1.Caption := BoolToStr(a,'1','0');
...


Или даже так:

Код: Выделить всё

...
Label1.Caption := BoolToStr(a,'Стопудово!','Фуфло!');
...