请教各位，怎样判断在edit1.text中输入的是数安还是字符？？

Question

最简单的方法一个一个字符取出来 用isNumeric()

Answer 1

在OnKeyPress事件里面写
if (Key in ['0'..'9', '.'] then
 ...

Answer 2

在OnKeyPress事件里面写
if (Key in ['0'..'9', '.'] then
  ...
else
 ...

Answer 3

是不是还要允许用户使用退格键,不然输错了数字怎么修改，：）
所以是  if not (key in ['1'..'9',#8]) then key:=#0;
当然还可以加Delete了

Answer 4

俺经常这么用,在使用之前检查:
var
   i: integer;
...
try
   i:=StrToInt(Edit1.Text);
except
   ShowMessage(...);
end;