Как в Edit вводить только цифры?

← →
BaxTMaH © (2005-09-27 12:24) [0]

Задача написать калькулятор. Что лучше всего использовать для ввода цифр? Компонент Edit? И как ввести дробные числа туда? Если использовать Edit, то дробные числа надо переводить в string, а какой функцией это делается?

← →
Rentgen © (2005-09-27 12:37) [1]

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

← →
Rentgen © (2005-09-27 12:38) [2]

StrToFloat
FloatToStr

← →
Slider007 © (2005-09-27 12:42) [3]

Rentgen © (27.09.05 12:37) [1]

лучше так :
edit1.ReadOnly := not (key in ["0".."9", ",", #8]);

← →
Slider007 © (2005-09-27 12:51) [4]

или так
edit1.ReadOnly := not (key in ["0".."9", DecimalSeparator, #8]);

← →
stone © (2005-09-27 12:51) [5]

> Slider007 © (27.09.05 12:42) [3]
> Rentgen © (27.09.05 12:37) [1]
>
> лучше так :
> edit1.ReadOnly := not (key in ["0".."9", ",", #8]);

А если разделитель не запятая?

← →
BaxTMaH © (2005-09-27 13:11) [6]

Ого, сколько ответов! -)) Спасибо! Только вопрос, а что значит #8,#0??

← →
BaxTMaH © (2005-09-27 13:21) [7]

И еще, я скопировал строку edit1.ReadOnly := not (key in ["0".."9", DecimalSeparator, #8]); и вставил ее в обработчик нажания клавиши, но мне выдается что key - необъявленная переменная, надо что то подключить?

← →
IceBeerg © (2005-09-27 13:28) [8]

BaxTMaH © (27.09.05 13:11) [6]
#8 - помоему backspace, #0 - ну незнаю, символ такой, помоему нихрена означает, нормального названия непомню...
Да, и можно обрабатывать стрелики и delete, для редактирования вводимого числа

← →
BaxTMaH © (2005-09-27 13:30) [9]

хмм, так куда надо вставлять строку edit1.ReadOnly := not (key in ["0".."9", DecimalSeparator, #8]); , я вставляю ее в событие формы кейдаун, и мне выдается что несоответствие типов ворд и чар

← →
IceBeerg © (2005-09-27 13:30) [10]

BaxTMaH © (27.09.05 13:21) [7]
А мне пришлось строку в Edit1KeyDown доплнить... edit1.ReadOnly := not (Chr(key) in ["0".."9", DecimalSeparator, #8]);

Во, с твоим дополнением уже заработало! Спасибо!
У меня при вычитании все равно остается минус -) даже если первое число больше второго, почему?

Во я даюююю..... -))) вот я ламер то -))
На предыдущий вопрос мона не отвечать -)

Это было ламерство -))
Написал что надо отнимать из последней введенной цифры предыдущую, а не наоборот. Ну я просто скопировал строку из "плюса и умножение", а там то пофиг что на что умножать -))

Как в Edit вводить только цифры? Найти похожие ветки