判断一个String是否全部由数字字符构成(20分)

L

learnlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #1

这个String长度在10以上，最长40，大家发表一下意见，有什么简洁点的写法，实现这个函数的功能
function IsValidNum(Str: string): Boolean;
begin
Result := True;
//...
end;

 

B

bbgsgs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #2

try
这里将这个字符强转成数字型
返回1，全是数字
except
返回2，不全是数字
end

 

4

41426277

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #3

///函有字符就返回FALSE
for i:=1 to length(str)do
if not (str in ['0'..'9']) then
begin
Result := false;
break;
end;

 

M

muhx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #4

function TForm1.IsValidNum(Str: string): Boolean;
var
i, tmpValue, tmpCode: Integer;
begin
Result := True;
for i := 1 to Length(Str)do
begin
Val(Str, tmpValue, tmpCode);
if tmpCode <> 0 then
begin
Result := False;
Exit;
end;
end;
end;

 

S

SiWeiLiuLang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #5

一个字符一个字符来判断

 

R

radtek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #6

function IsNumber(s: string): Boolean;
var
i: Integer;
begin
Result := False;
for i := 1 to Length(s)do
case s of
'0'..'9':;
else

Exit;
end;
Result := True;
end;

 

M

myveremy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #7

function IsValidNum(Str: string): Boolean;
var
i,code:integer;
begin
Val(Str, i, code);

if code=0 then
Result := True
else
Result := false
end;

 

R

radtek

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #8

function IsStrANumber(const S: string): Boolean;
var
P: PChar;
begin
P := PChar(S);
Result := False;
while P^ <> #0do
begin
if not (P^ in ['0'..'9']) then
Exit;
Inc(P);
end;
Result := True;
end;

 

M

muhx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #9

To:myveremy
你的算法有问题．
Integer是４个字节来表示的，就是说只能表示
-2147483648..2147483647的数字
楼主的要求是１０－４０位数，你的算法在处理大于１０位数后就永远返回False了.

 

F

FlyDayDream

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #10

function MyVerifyAllIsNum(S: string): boolean;
var
i: integer;
begin
for i:=1 to Length(S)do
if not (S in ['0'..'9']) then
begin
Result:= False;
Exit;
end;
Result:= True;
end;

 

L

learnlife

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-01-16

• #11

采用了逐个字符判断的算法，radtek所用的指针操作也是逐个字符判断
很多人用了Val函数，StrToInt函数调用了这个
其它算法：(1)bbgsgs说的是一种，不过我的数比较长，要多考虑一下
请大家批评指正