Скачать: CL | DM;

Почему не работает функция 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]
Спасибо, не знала про баг!

---

← →
Ega23 ©   (2009-02-25 10:25) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c