Код клавиши '.'

[govorun1]

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

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

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

[Stilet]

А как ты понял что не работает?

[Arigato]

Может ты запятую вводишь вместо точки? Если русская раскладка, то точка на цифровой клавиатуре на самом деле запятая.

[govorun1]

Сообщение от Stilet

А как ты понял что не работает?

Вообщето я ручками тыркал на клавиши на основной и на доп. клавиатуре, переключал раскладку...не работает. Цифры набираются, Baclspace работает, а точку поставить не могу.

[Stilet]

По идее все верно в коде.
Поставь точку прерывания и посмотри что принимает key когда точку жмешь.

[Arigato]

Вбил на KeyPress этот код для TEdit, точка работает. Видимо проблема лежит где-то выше.

[Аватар]

Для float-поля нормально туда точка передается, но если DecimalSeparator=',' то компонент сам её игнорит и звуковой сигал еще выдает. Так что с OnKeyPress тут все в порядке

[govorun1]

Сообщение от Arigato

Вбил на KeyPress этот код для TEdit, точка работает. Видимо проблема лежит где-то выше.

ВИНОВАТ...., не в тот эдит код прописал и сижу ломаю черепушку...
Сделал так:

PHP код:

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


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

[eval]

а теперь надо выкинуть KeyPress, за ненадобностью

[Arigato]

  if not (Key in['0'..'9','.',#8,#13]) or (Key = '.') and (Pos('.', TDBEdit(Sender).Text) > 0)
    then Key:=#0;