Почему не работает функция StrToBool?

← →
Abcdef123 (2009-02-25 03:53) [0]

Здравствуйте Мастера!
Прошу показать любой простой пример использования функции StrToBool.
У меня не работает. :-( Пишу так:
uses SysUtil;
procefure mine;
var
boVar : Boolean;
strVar : String;
begin
strVar := "FALSE";
boVar :=StrToBool(strVar); //на этой строке при выполнении выдает ошибку False is not valid boolean value
end;

Я прочла в хелпе StrToBool converts the string specified by S to a boolean. ...Note: If you do not assign a value to TrueBoolStrs, it is treated as if it contains the single string ‘TRUE’. Similarly, if you do not assign a value to FalseBoolStrs, it is treated as if it contains the single string ‘FALSE’;
Так что вроде должно работать, но увы :-(

← →
Джо © (2009-02-25 04:54) [1]

Это баг в Делфи 6 (некорректный код процедуры TryStrToBool в SysUtils). Поставьте Update pack 6 или же просто напишите собственную функцию, вполне тривиальную :)

← →
Abcdef123 (2009-02-25 05:15) [2]

To [1]
Спасибо, не знала про баг!

Сделай проще:
function MyStrToBool(const Value : string) : Boolean; begin Result := UpperCase(Value)="TRUE"; end;

Почему не работает функция StrToBool? Найти похожие ветки