5,930
社区成员
发帖
与我相关
我的任务
分享数字转换为字符
1,2,3,4,5,6,7,8,9,10,11,12 如何转换为 01,02,03,04,05,06,07,08,09,10,11,12
...全文
请发表友善的回复…
发表回复
herman~~ 2004-12-27
- 打赏
- 举报
var
str:string;
i:integer;
begin
if i<10 then
str:='000'+ inttostr(i)
else if i < 100 then
str:= '00' + inttostr(i)
else
str:= '0' + inttostr(i);
end;
str:string;
i:integer;
begin
if i<10 then
str:='000'+ inttostr(i)
else if i < 100 then
str:= '00' + inttostr(i)
else
str:= '0' + inttostr(i);
end;
hthunter 2004-12-27
- 打赏
- 举报
Format('x=%.5d', [12]); //'x=00012' //前面补充0
侃侃2016 2004-12-27
- 打赏
- 举报
如果数字是1到100 转换为0001 。。。。0100,如何转换
bmwyc 2004-12-27
- 打赏
- 举报
……………………
var
str:string;
i:integer;
if i<10 then
str:='0'+strtoint(i)
else
str:=strtoint(i);
……………………
var
str:string;
i:integer;
if i<10 then
str:='0'+strtoint(i)
else
str:=strtoint(i);
……………………
