如何递增一个字符串? 有一字符串,形式如'000',我想如此递增它:000,001,002,...,009,010,011,...,019,020,021,...099,100,101,....如何实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 s := '000';result := copy(inttostr(strtoint(s)+1001),2,3); for i ;= 1 to 100 doedit1.text := formatFloat('000',1); for i ;= 1 to 100 doedit1.text := formatFloat('000',i); delphi7中TDBEdit控件在win7上出现的问题! 100分寻求答案,数据库字符串 delphi2006里面没有tchart控件吗?它在哪里啊,找了半天都找不到. Label属性问题 我有一个DCOM服务不可以。 菜鸟问题 进销存中客户的应收应付怎么计算,是每月结转吗?需要专门建表吗?(只要是合理建议保证给分) 200分,不妨进来救火! 手写控件 滑屏控件 神龙卡控件 请问skinData1和SkinCaption1控件如何使用? 信息对话框 TRichEdit
result := copy(inttostr(strtoint(s)+1001),2,3);
edit1.text := formatFloat('000',1);
edit1.text := formatFloat('000',i);