自己编一个函数:
//3是总的位数
for i=:0 to 3-length(yourstring) do
yourstring:='0'+yourstring;
//3是总的位数
for i=:0 to 3-length(yourstring) do
yourstring:='0'+yourstring;
解决方案 »
- application.messagebox 弹出后,为什么要连续2次确认才能执行后面的语句?
- 大虾请教:使用完一个数据集,想在窗体关闭时候释放资源,用close ? free ? active := false ? destroy 呢?
- initialization Coinitialize(nil);finalization CoUninitialize;这两句话在DLL写在什么地方?
- Rave报表打印控件使用报错误问题
- DELPHI如何查看DLL文件的内容?
- 关于ole控件
- 用application打开.doc文档时,能否在程序中就地把它转成rtf格式???
- 一个关于提高查询速度的问题。有点不爽!!
- 我是Delphi初学,很有趣,想问一下那有Delphi的函数,要很全的那种,书或电子文档都行!
- 如何把字符串中的每一个字符转化成为ascii码?
- 高手们:如何实现“类似 Microsoft OutLook 式样的卷动按钮盒”?
- 请问1stclass、EspressBar控件组从哪得到?
int x=5;
char buf[32];
sprintf(buf,"%03d",x);
buf将有"005"
LPTSTR lpOut, // pointer to buffer for output
LPCTSTR lpFmt, // pointer to format-control string
... // optional arguments
);
%[-][#][0][width][.precision]type0 Pad the output value with zeros to fill the field width. If this field is omitted, the output value is padded with blank spaces.试一试,API中用就成了