str:='001';
现想使001每次加一,如002,003,....011,012等,但要确保有3位数
本用
str:=IntToStr(StrToInt(str)+1);
但这样处理后前面的零都被去了,请问要怎样处理?谢谢
现想使001每次加一,如002,003,....011,012等,但要确保有3位数
本用
str:=IntToStr(StrToInt(str)+1);
但这样处理后前面的零都被去了,请问要怎样处理?谢谢
解决方案 »
- 这个语句错在那里?
- 在DLL中能使用组件调用外部文件吗?DLL中使用TXMLDocument的问题
- 查找字符串的位置
- 从Access数据库中读出数据然后插到Microsoft Visual FoxPro 6.0中去的问题!
- N个EDIT随意结合查询
- 怎样写一个函数判断一个字符串是否日期类型(如2003-10-20)
- 怎么写:函数的参数可有可无?如:
- string转换为char急!!!
- 让edit框中的文字显示在中间位置是什么属性???
- 关于 FieldByName 得不解问题
- 帮帮忙,谁给一个串口的实例(对于IC卡的更好)! 谢谢!
- 我有一块显卡,是启亨的G2 MX 400的,为什么在家里的主板上都检测不到呢?
别加冒了!
a:string;
begin
a:=formatfloat('000',2);
showmessage(a);
end;