• 主页
  • 招聘
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API

数字转换为字符

侃侃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
...全文
46 点赞 收藏 4
写回复
4 条回复
皮皮猪头 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);

……………………
 回复 点赞
发动态
发帖子
Delphi
创建于2007-08-02

1467

社区成员

26.2w+

社区内容

Delphi 开发及应用
社区公告
暂无公告