如何将 00012345变成整数12345,前面的0的位数不定多少个,只要能去掉前面的0即可.(30分)

J

jiachenghuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #1

如题

 

S

sadnui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #2

不太明白你的意思<br><br>ShowMessage( IntToStr( strtoint('00012345') ) );

 

J

jiachenghuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #3

to sahnui,不行,这样去不了的,编译都不通过.

 

J

jsqin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #4

ShowMessage(IntToStr(StrToInt('00012345')));<br>[]

 

绯

绯红之王

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #5

IntToStr(StrToInt('00012345'))

 

X

xcplates

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #6

IntToStr(StrToInt('00012345'))

 

M

maphc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #7

捡点分ShowMessage(IntToStr(0001234));

 

J

jiachenghuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #8

多人接受答案了。

 

U

unsigned

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-08-16

• #9

简单一点(结果在str中):<br>str := '00012345';<br>while (Length(str) &gt; 1) and (str[1] = '0') do Delete(str,1,1);<br><br>效率一点(结果在str中):<br>str := '00012345';<br>iLen := Length(str);<br>if iLen = 1 then Exit;<br>iIndex := 1;<br>while (iLen &gt; iIndex) and (str[iIndex] = '0') do &nbsp; Inc(iIndex);<br>Delete(str,1,iIndex - 1);