Нужна проверка на введенное значение в DBEdit - должно быть десятичное число с точкой.
Код:
if not (Key in['0'..'9','.',#8,#13])
then Key:=#0;
Точка не работает. Как поправить?
Сделал так:
Код:
if not (Key in['0'..'9',#8,#13,#46])
then Key:=#0;
Но теперь другая беда...
Как сделать проверку что бы в набранном числе была только одна точка
(дрогнула рука). Т.е. сделать запрет на ввод в эдит второй точки.
Спасибо