数字转换为字符

侃侃2016 2004-12-27 09:41:47
1,2,3,4,5,6,7,8,9,10,11,12 如何转换为 01,02,03,04,05,06,07,08,09,10,11,12
...全文
71 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;
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);

……………………

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧