初学求助!

初学求助! 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);

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

posted on 2009-01-04 16:47  delphi2007  阅读(252)  评论(0编辑  收藏  举报