初学求助！

初学求助！ VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061221172200210.html
000001（字符型）         循环100次  
   
  结果为000100  
   
  该用什么函数？请大家教我

不明白什么意思

000001       循环100次每次加1，  
  结果为000100

字符串是不能直接按数字累加的,需要转换成整数,然后再换成字符串.  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      i,   j:   Integer;  
   
  begin  
      j   :=   0;  
      for   i   :=   1   to   100   do  
          Inc(j);  
      edit1.Text   :=   FormatFloat('000000',   j);  
   
  end;  
 

var  
      i:   Integer;  
      s:   String;  
  begin  
      s   :=   '000001';  
      i   :=   StrToInt(s);  
         
      for   ....     //做100次  
      inc(i);  
   
      s   :=   Format("%.6d',i);

格式转换啊，兄弟，我也是刚学，加油啊，一起

转载于:https://www.cnblogs.com/delphi2007/archive/2009/01/04/1368274.html