Компонент tEdit

← →
set666 (2011-07-12 01:49) [0]

Как сделать так что бы в компонент tEdit можно было ввводить только числа, то есть цифры и запятую ?

← →
Германн © (2011-07-12 02:26) [1]

В OnKeyPress проверять какая клавиша нажата.

← →
set666 (2011-07-12 02:39) [2]

ну это понятно допустим что я знаю значение переменной key если оно мне неподходит то что делать ?

← →
Германн © (2011-07-12 03:00) [3]

> если оно мне неподходит то что делать ?

Key:=#0;

← →
Anatoly Podgoretsky © (2011-07-12 10:02) [4]

> set666 (12.07.2011 01:49:00) [0]

Это не живое и тебя побьют

← →
Омлет © (2011-07-12 10:17) [5]

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char); begin Key := chr(integer(Key in ["0".."9", ","]) * ord(Key)); end;

← →
Smile (2011-07-12 10:21) [6]

Лучше вместо "," - DecimalSeparator,
но это не решает проблему ввода более одного сепаратора, да и много других проблем ...

← →
Игорь Шевченко © (2011-07-12 10:59) [7]

Омлет © (12.07.11 10:17) [5]

Давить за такой код

← →
Омлет © (2011-07-12 11:17) [8]

← →
Gu (2011-07-12 11:46) [9]

там же вроде в маскедит все это есть

> set666

Некоторые еще длину ввода ограничивают.
Лечится переводом программиста в операторы на недельку-другую.

проверять надо после, а не во время...