关于整型转换为字符型，但前面要补零的问题，求助！？？(100分)

Z

zjzhizhi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #1

大家好，
我要把
kk:string;
for i:=1 to 1000 do
KK:=itostr(i);
问题是，我要使KK为8位的字符串，不够的话，前面补零；
有何简便的函数或方法，请指教！
除了，在程序中添加，比较i与10，100，1000的大小，而补零的这种！！

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #2

用format之类的格式化函数试试

 

山

山泉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #3

implementation
function strs(c:char;l:integer):string;
var i:integer;
begin
result:='';
for i:=1 to l do result:=result+c;
end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var kk,s1:string;
i:integer;
begin
for i:=90 to 120 do
begin

KK:=inttostr(i);
s1:=strs('0',(8-length(KK)))+KK;
memo1.Lines.add(s1);
end;

 

山

山泉

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #4

送分把

 

K

Kisber

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #5

KK := format('%10.10d', );

 

Z

ZZHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #6

KK:=FormatFloat('0000000',i);

 

Z

zjzhizhi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-06

• #7

多人接受答案了。