| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему не работает функция StrToBool? [D6, XP]
Abcdef123 © (2009-02-25 03:53:00)Здравствуйте Мастера!
Прошу показать любой простой пример использования функции 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’;
Так что вроде должно работать, но увы :-(
Ega23 (2009-02-25 10:25:00) [1]Сделай проще:
function MyStrToBool(const Value : string) : Boolean;
begin
Result := UpperCase(Value)='TRUE';
end;
Abcdef123 (2009-02-25 05:15:00) [2]To [1]
Спасибо, не знала про баг!
Джо (2009-02-25 04:54:00) [3]Это баг в Делфи 6 (некорректный код процедуры TryStrToBool в SysUtils). Поставьте Update pack 6 или же просто напишите собственную функцию, вполне тривиальную :)
| |
