Ввод данных

← →
Xmen (2004-01-17 10:56) [0]

Привет!
У меня такой вопрос.
Как можно в EDIT контролироват ввод только цифр и денежной информации ограниченной длины. Например: 45,32; 1212; 4545444,87 итд. для цифр до 7 , а для денежной информации 999999.99 . Я попробовал с помошью MaskEdit, но там в не заполненном месте остаётся символ "_". и денежная информация идет в виде 455___.__ Как можно организовать контроль ввода

← →
Tt (2004-01-17 11:56) [1]

Можно, конечно, и вручную попытаться анализировать каждый вводимый символ в событии, кажется, OnKeyDown или OnKeyPressed. Если введен не числовой символ - сбрасывать его (Key := #0)

← →
Xmen (2004-01-17 12:52) [2]

как можно отличить символ от цифр

← →
Palladin © (2004-01-17 13:14) [3]

сравнением

← →
Tt (2004-01-17 13:32) [4]

И то верно
Сравнить if pos(Key, "0123456789")>0 then Key - цифра

← →
McSimm © (2004-01-17 13:33) [5]

В OnKeyPress

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

← →
Xmen (2004-01-17 13:49) [6]

Спасибо всем
>>McSimm © (17.01.04 13:33) [5]

>>В OnKeyPress

>>if not (Key in ["0".."9", #8, "."]) then Key := #0

Хоть чтото у меня получилось.
Вот еще вопрос по этому повуду #8 что это означает. Не можнали так сделат чтобы посли запятой вводилось только 2 цифры

> #8 что это означает

Позволяет стирать символы (backspace)

> вводилось только 2 цифры

Лучше всего все же с maskedit разобраться

Ввод данных Найти похожие ветки