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哪个控件可以用鼠标选中文字后右键复制文字
- 使用一个VC写的DLL中的函数,返回值表明函数执行成功,但程序提示错误!
- 100分提问:如何将DELPHI源程序制作成.DLL文件!高手指点!在线等.................
- 请教delphi字符串问题,新手提问
- [各位大侠请赐教]关于数据库的过滤问题
- 急救:有没有清华在校生没?帮忙回答个问题(关于水木清华BBS的注册问题)
- 一个简单问题,请问怎么用new下面unit
- 如何知道1个类是不是存在?
- 我就不相信,这200分.......
- 怎么把Tmemo控件里的内容保存到memo字段中?
- 一个做好了的简体版软件,有没有什么简便的方法把它转换成繁体?
- 我的贴子为什么到了灌水乐园,还要减信义分?
FormatDateTime('No.yymmdd', Date)+Format('%.4d', [i]);
才能通过!