• Registered: 2014-12-02
  • Posts: 9

Topic: Вещественное число (точка/запятая)

Есть поля "Вещественное число".
В форме ввода есть скрипт расчета суммы/процентов и прочее.
При добавлении в форму десятичного числа через запятую все отлично работает и сохраняется.
В гриде данные отображаются с запятой.
Но при открытии формы для  редактирования данных поля уже с точкой и т.к. стоит проверка на ValidFloat, то скрипт не работает, пока не заменишь точки на запятые.
При сохранении этих полей с точками, в гриде они отображаются с запятой.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вещественное число (точка/запятая)

Пожалуйста, скачайте последнюю версию, данная ошибка была исправлена
http://myvisualdatabase.com/download/myvisualdb.exe

Dmitry.
  • Registered: 2014-12-02
  • Posts: 9

Re: Вещественное число (точка/запятая)

А если использовать версию 1.45 с функцией ReplaceStr и в событии OnShow формы проверять значения полей:

if not ValidFloat(frmAddCalculate.edPrice.Text) then
  frmAddCalculate.edPrice.Text := ReplaceStr(frmAddCalculate.edPrice.Text, '.', ',') ;

Правильно ли это?

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Вещественное число (точка/запятая)

kulikovkv
Думаю да, можно добавить два варианта проверки, вдруг региональные настройки кто нибудь сменит

if not ValidFloat(frmAddCalculate.edPrice.Text) then
  frmAddCalculate.edPrice.Text := ReplaceStr(frmAddCalculate.edPrice.Text, '.', ',') ;

if not ValidFloat(frmAddCalculate.edPrice.Text) then
  frmAddCalculate.edPrice.Text := ReplaceStr(frmAddCalculate.edPrice.Text, ',', '.') ;
Dmitry.
  • Registered: 2014-12-02
  • Posts: 9

Re: Вещественное число (точка/запятая)

Спасибо, так вроде бы все работает.