|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
'30.4' is not avalid floating point value
Проблема возникает в следующем событии...
Код:
procedure TForm2.Edit10Click(Sender: TObject); var zp:real; begin zp:=(strtofloat(edit4.text)-( strtofloat(Edit6.Text)*strtofloat(Edit9.Text) ) *0.2; Edit10.Text:=floattostr(zp); end; На моем компьютере, на котором программа писалась, все работает хорошо, ошибок не возникает. На других компьютерах, протестировал на 3ех, возникает эта ошибка. Пожалуйста помогите, не понимаю из-за чего... Запятую не ввожу (вообще через keypress запретил), поля Edit не пустые. Последний раз редактировалось Admin, 20.11.2013 в 20:16. |
#2
|
||||
|
||||
DecimalSeparator если запятая запрещена и десятичным разделителем в программе считается точка, то на всякий случай (судя по ошибке тут как раз такой случай) необходимо присвоить значение '.' (символ "точка"), не на каждой ОС умолчательным является английский язык
Понять, что хочет заказчик - бесценно, ведь он платит MasterCard |
Этот пользователь сказал Спасибо cotseec за это полезное сообщение: | ||
axer (20.11.2013)
|
#3
|
||||
|
||||
Цитата:
Чтобы у себя в программе использовать точку даже если в настройках Windows'а указан другой разделитель выполни такую команду: Код:
DecimalSeparator:='.'; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
axer (20.11.2013)
|
#4
|
|||
|
|||
Цитата:
спасибо, помогло!!) |