一个小问题

Question

我想实现用了一个EDIT控件判断所输入的值为字符型就报错.问题是怎样表示一个EDIT1.TEXT为字符型.
请高手指点一二!

Answer 1

EDIT限制输入字符：
在edit的keypress事件中写入
if not (key in ['0'..'9','.'])  then  showmessage('不能输入入字符！');

Answer 2

try 
  strtoint(Edit1.text);
except
  edit1.text:='';
  showmessage('error');
end;

Answer 3

同意： cg1120！
应该加个退格号，否则输错都不能删除！
if not (key in ['0'..'9','.',#8])  then  
   showmessage('不能输入入字符！');

Answer 4

同意： LKJ99(阳江in深圳,路在何方...)