如何判断一个字符串中从第几个字符开始是数字?(30分)

少

少爷的拐杖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #1

一般的办法是
for i:=1 to length(str) do
begin
if copy(str,i,1)='0' or ='1' or ... then break;
end;
有没有简单明了一些的办法?

 

P

pengjinlongex

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #2

for i:=1 to length(str) do
begin
if str in ['0','1' '9'] then break;
end;

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #3

ord(str)>=48 and ord(str)<=57

 

L

l213

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #4

numberpos:integer;

numberpos:=length(str);
for i:=0 to 9 do
begin
if (pos(str,inttostr(i))>0) and (pos(str,inttostr(i)<numberpos) then
numberpos:=pos(str,inttostr(i);
end;

 

少

少爷的拐杖

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-18

• #5

接受答案了.
//昏.发完了接受贴,才看到还有其他答案.两位对不起了.
//你们的回答也是正确的.