var S; String;S:=IntToStr(1); // or S:=IntToStr(2);
While Length(S)<4 do S:='0'+S;
S:='No. '+S;
While Length(S)<4 do S:='0'+S;
S:='No. '+S;
解决方案 »
- 如何让保存对话框的保存类型在运行时可以随意更改或输入?
- delphi调用SQL存储过程adpstoreprocess1如何在DBGrid里显示存储过程返回的数据集?
- 如何实现使用excle导入sqlserver的实现
- 前台对clientdataset.delete操作怎么提交给后台?
- Sqlserver中可以存放stream的字段类型是???
- 用delphi ado下的控件如何操作sqlserver 中的游标?
- CSDN 怎么了?!
- 请问delphi中调用的算法怎么改名?
- 在win98用ADOCONNECTION连接win2000上的sql server2000就连不上,这是为什么?
- 怎样删除文本文件的一行? 加入一行?
- 一个做好了的简体版软件,有没有什么简便的方法把它转换成繁体?
- 我的贴子为什么到了灌水乐园,还要减信义分?
FormatDateTime('No.yymmdd', Date)+Format('%.4d', [i]);
才能通过!