procedure TForm1.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
I := 1;
ShowMessage(Format('XXXX%.4d', [I]));
I := 12;
ShowMessage(Format('XXXX%.4d', [I]));
I := 123;
ShowMessage(Format('XXXX%.4d', [I]));
end;
var
I: Integer;
begin
I := 1;
ShowMessage(Format('XXXX%.4d', [I]));
I := 12;
ShowMessage(Format('XXXX%.4d', [I]));
I := 123;
ShowMessage(Format('XXXX%.4d', [I]));
end;
解决方案 »
- 如何使生成的CSV文件不带双引号?
- 求个多表汇总查询的Sql语句
- 50分求助!sql 语句中做除法,若分母为零该如何处理
- 100分!如何获取汉字字首拼音?(以前很多帖子的方法都有局限)
- 散分!高手请进。Label及Panel透明度问题!
- 怎么样避开MDI父窗体必须是主窗体这一规则
- HELP!73分相送,InstallShield高手快来帮忙
- 怎样制作任务栏程序?(就是像病毒防火墙那样只在任务栏中有一个图标的)
- 怎样将桌面上的图标全都隐藏起来。
- 有谁会把下面的VB源代码翻译成Delphi的源代码?
- Delphi数据库问题!!!!!!!!!!!!
- [[问题]]请问在DELPHI 中注册OCX控件用的是什么命令? 谢谢。
s := '0'+IntToStr(a);