delphi中有没有这样的函数？(20分)

M

mxq888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #1

fill(i,l:integer)：string
意思是，把i转换成字符串，并且例其长度为l,长度不够，用0补。
如fill(23,5)
应该返回"00023"
delphi 中有这样的函数吗，哪位能写个效率高的这个功能的函数，谢谢

 

D

dreamfly1024

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #2

用 format

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #3

有!
法一：
format('%.6d',[123]); //把整数123转为6位字串，并加前导‘0’，注意格式串中有.号
format('%6d',[123]); //把整数123转化为6位字串，并前导空格,即串长为6字节

法二：
len := 6 - length(inttostr(123));
stringofchar('0',len) + inttostr(123);
//把整数123转化为6位字串，前导‘0’可用stringofchar()得到

 

M

mxq888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-10-28

• #4

好快，多谢了，[][]