1.用#13#10 2. var x: integer begin x := 1000; showmessage(format('%.6d',[x]));
#13 hehe ~~ 别个写的给你看哈 好象不难呀,随便写一个吧//注范围只能在0到999呀,别情况你自已想吧 function FormatInt(i:integer):String; begin Result:=IntToStr(i); case Length(Result) of 1:Result:='00'+Result; 2:Resutt:='0'+Result; end; end;
2.
var
x: integer
begin
x := 1000;
showmessage(format('%.6d',[x]));
hehe ~~
别个写的给你看哈 好象不难呀,随便写一个吧//注范围只能在0到999呀,别情况你自已想吧
function FormatInt(i:integer):String;
begin
Result:=IntToStr(i);
case Length(Result) of
1:Result:='00'+Result;
2:Resutt:='0'+Result;
end;
end;
不用这么麻烦啦
一行搞定!
result:=stringOfChar('0',n-length(v))+v;即可
其中n为位数;v为数字字符