问题(100分)

  • 主题发起人 主题发起人 wbing
  • 开始时间 开始时间
W

wbing

Unregistered / Unconfirmed
GUEST, unregistred user!
请问各位：
我用 if (StrToInt(s)>=0) and(StrToInt(s)<=9) then来判断输入的变量是不是数字，
可是当输入字符时却报错，达不到检测的效果，请问怎么解决？
 
if not s in ['0'..'9'] then
.....
 
try
if (StrToInt(s)>=0) and (StrToInt(s)<=9) then ...
showmessage('转入的是数字');
except
showmessage('为什么不输入数字');
end;
 
if s in ['0'..'9'] then
 
你要读入的变量一定是一个字符吗
如果是的话
可以这样
if ord(s[1])<48 or ord(s[1])<57
then shoemessage('你输入的不是数字')
else shoemessage('你输入的是数字')
 
最好不要用这种方法来判断字符是否数字，
最好直接判断字符的Ascii码值是否在‘0’、‘9’码值之间。
用集合也可以判断，不过速度较慢。
 
result := true;
try
StrToInt(s);
except
//不是
result := false;
end;
 
if s in ['0'..'9'] then
好一点，StrToInt(s);时字母E和XA、XB、XC、XD、XE等许多都可以通过不报错,
无法达到目的
 
如果你只是要判断是不是整形
可以用
function IsInteger(Str: string): Boolean;
var
V, Code: Integer;
begin
Val(Str, V, Code);
Result := Code = 0;
end;
判断是否浮点形
function IsFloat(Str: string): Boolean;
var
Value: Extended;
begin
Result := TextToFloat(PChar(Str), Value, fvExtended);
end;
 
// Val(Str, V, Code);
// Result := Code = 0;
呵呵，现在会用 Val 函数的人很少了，TurboPascal 里面带来的东西，
真不愧您的名字。
真是怀念当初用 TP 的岁月：）
 
if (StrToInt(s)>=0) and(StrToInt(s)<=9) then
从键盘输入的值都被作为ASC字符，输入的数字是作为字符进去，用StrToInt(s)可以转化
为相应的数字，但原本是字符ASC进来后当然无法用StrToInt(s)转化了，而且会抱错。
为河不用if key in ['0'..'9'] then，直接判断键值。

 
['0'..'9','#8']别忘了Backup键否则没法退格
 
您必须登录或注册才可回复。

Similar threads

L
怎么写一个判断string类型的字符串是否包含非数字的函数。(50分)
回复
13
查看
242
linsb
L
P
一个小问题，请各位帮帮忙,关于字符串判断的问题 (30分)
回复
13
查看
146
plf22
P
M
请问有什么办法判断变量的类型并自动转换成字符型(0分)
回复
1
查看
130
zw84611
Z
A
请看看这个问题，谢谢！(10分)
回复
7
查看
162
awfigsk
A
Y
请问如何判断一个字符是中文字符还是西文字符(10分)
回复
7
查看
498
ydjjld
Y
后退
顶部