我想给一个字符串前补0后符值给一个字符串变量,语句如下:
strtmp:=Format('%015.15s',[Trim(edit1.Text)]);
showmessage(strtmp);
发现strtmp没有前补0,不知道应该如何实现,请各位大虾知道一下!
strtmp:=Format('%015.15s',[Trim(edit1.Text)]);
showmessage(strtmp);
发现strtmp没有前补0,不知道应该如何实现,请各位大虾知道一下!
解决方案 »
- 最近www.delphibbs.com登录不上去 ,是不是换地址了啊!望知道的同志告诉一下,谢谢了,,
- intraweb 寫的standalone application 怎樣用apache(2.2)發布
- [高分求]请问如何保持音频波形显示记录?
- 如何取浮点数整数部分???
- 如何调用 chm 文件 ?????????
- 类与类之间的怎么赋值!
- 救命呀,delphi怎样写注册表呀,我想控制软件的使用次数,-----------在线等待
- 关于拖放的问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 怎样将字符数组里的值附给字符串
- 请教:如何初始化TADOQuery?
- 开发一个移动短信网关模拟器,需要多少钱,
- 用Format格式化字符串,如何前补0?
如:
strtmp:=Format('%.3d',[2]);
showmessage(strtmp);//002
可能要自己实现,你可能用到函数StringOfChar
eg:
strtmp := StringOfChar('0', 4) + '1';
showmessage(strtmp);//00001
var
str:string;
begin
str:=Format('%15s',[Trim(edit1.Text)]);
str:=StringReplace(str,' ','0',[rfReplaceAll]);
ShowMessage(str);