怎么把1转换成00001？

Question

我想把现有的字符串都转化成5位字符串，如果不足5位的，在原先字符串前面加零，delphi有没有现有的函数提供，format函数是否可以实现？

Answer 1

如:
StringOfChar('0',5-Length('1'))+'1';

Answer 2

楼上的办法比较简单 你也是可以
把你的数据加上100000000然后利用copy函数取后5位的 但是就是比楼上的麻烦的多了

Answer 3

ShowMessage(Format('%.5d',[strtoint(edit1.text)])); // 前面补充0

Answer 4

WangZWang(阿来) 
不错
 angle097113(深思<刘强>) 通用

Answer 5

呵呵
都讲完了都可以是
s:=IntToStr(i);
s := '0000'+s;
i := Length(s);
Delete(s, 1, i-5);