Как проверить нажата цифра или буква в едите?

← →
denis24 (2003-07-22 17:18) [0]

rocedure TfrmDetail_1.txtkolvoKeyPress(Sender: TObject; var Key: Char);
begin
if ord(key) not in [0..9] then....?

← →
Sandman25 © (2003-07-22 17:20) [1]

Множества бывают не только of byte.
Key in ["0".."9"]

← →
denis24 (2003-07-22 17:41) [2]

if key not in ["0".."9"] then Beep;
Что здесь с not не правильно?

← →
ggsoft © (2003-07-22 17:45) [3]

if not(key in ["0".."9"]) then...

← →
denis24 (2003-07-22 18:06) [4]

да оно
А как сделать что бы если правда if not(key in ["0".."9"]) then... ничего не появлялось в эдите?Чему приравнять key?

← →
PVOzerski © (2003-07-22 18:10) [5]

then Edit1.Text:="";

Задать окну ES_NUMBER стиль.