请问如何判断edit内的内容是数字还是英文字？？(10分)

zhbruce · 2002-07-07

请问如何判断edit内的内容是数字还是英文字？？
谢谢各位帮忙！

jasonking · 2002-07-07

我想可以用键盘码或者ascii码的取值范围！

glasses · 2002-07-07

hnlygtjj · 2002-07-07

在onkeypress事件里面判断咯。
if key in (47...56) 则是数字，好象是这个，你看一看ascII表呀，就可以知道字母与数字了。

tgljwx · 2002-07-07

假如是不是数值的话
try
strtoint(edit);
你想要的是数值的操作
except
你想要的不是数值的操作；

noall · 2002-07-07

try
strtoint();
strtofloat();
except
..是字符
end;

wuwuwu · 2002-07-08

同意楼上的，用ascll了，

yangxiao_jiang · 2002-07-08

同意楼上的

cee · 2002-07-08

function IsNumber(s:string):boolean;
begin
result:=(trim(s)='1') or (strtointdef(s,1)<>1);
end;

delphi_vcl · 2002-08-11

var I,Code:Integer;
val(Edit1.Text,I,Code);
if code=0 then
//数字
else
//英文

chinargb · 2002-08-11

支持用ascii码的取值范围