[govorun]

Нужна проверка на введенное значение в DBEdit - должно быть десятичное число с точкой.

Код:

if not (Key in['0'..'9','.',#8,#13])
then Key:=#0;

Точка не работает. Как поправить?

Сделал так:

Код:

 if not (Key in['0'..'9',#8,#13,#46]) 
    then Key:=#0; 

Но теперь другая беда...
Как сделать проверку что бы в набранном числе была только одна точка
(дрогнула рука). Т.е. сделать запрет на ввод в эдит второй точки.
Спасибо