[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; 

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

[Decoding]

Код для TEdit

Код:

   if not (Key in ['0'..'9',#8,#13]) then
      if Key in [#46] then
         if Pos( '.', ( Sender as TEdit ).Text ) <> 0 then
            Key:=#0
         else
      else
      Key:=#0

думаю под DBEdit сам допилишь