问题(100分)

W

wbing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #1

请问各位：
我用 if (StrToInt(s)>=0) and(StrToInt(s)<=9) then来判断输入的变量是不是数字，
可是当输入字符时却报错，达不到检测的效果，请问怎么解决？

 

W

wzca

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #2

if not s in ['0'..'9'] then
.....

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #3

try
if (StrToInt(s)>=0) and (StrToInt(s)<=9) then ...
showmessage('转入的是数字');
except
showmessage('为什么不输入数字');
end;

 

卡

卡色

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-04

• #4

if s in ['0'..'9'] then

 

K

kensou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #5

你要读入的变量一定是一个字符吗
如果是的话
可以这样
if ord(s[1])<48 or ord(s[1])<57
then shoemessage('你输入的不是数字')
else shoemessage('你输入的是数字')

 

S

stargazer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #6

最好不要用这种方法来判断字符是否数字，
最好直接判断字符的Ascii码值是否在‘0’、‘9’码值之间。
用集合也可以判断，不过速度较慢。

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #7

result := true;
try
StrToInt(s);
except
//不是
result := false;
end;

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #8

if s in ['0'..'9'] then
好一点，StrToInt(s);时字母E和XA、XB、XC、XD、XE等许多都可以通过不报错,
无法达到目的

 

8

80年代

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #9

如果你只是要判断是不是整形
可以用
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;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #10

// Val(Str, V, Code);
// Result := Code = 0;
呵呵，现在会用 Val 函数的人很少了，TurboPascal 里面带来的东西，
真不愧您的名字。
真是怀念当初用 TP 的岁月：）

 

行

行素

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #11

if (StrToInt(s)>=0) and(StrToInt(s)<=9) then
从键盘输入的值都被作为ASC字符，输入的数字是作为字符进去，用StrToInt(s)可以转化
为相应的数字，但原本是字符ASC进来后当然无法用StrToInt(s)转化了，而且会抱错。
为河不用if key in ['0'..'9'] then，直接判断键值。

 

Y

yczjs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #12

['0'..'9','#8']别忘了Backup键否则没法退格