For iCounter:=1 to MaxNumber do
Begin
   VPhone:=inifile.ReadString('FreePhones',IntToStr(iCounter),'0');
   ……
End;

解决方案 »

  1.   

    var
    I:Integer;For I:=1 to MaxNum do
    Begin
      VPhone:=inifile.ReadString('FreePhones','''' + IntToStr(I) + '''','0');
      ……
    End;肯定行;不用怀疑,直接用吧。
      

  2.   

    VPhone:=inifile.ReadString('FreePhones','''' + IntToStr(I) + '''','0');
                                            ~~~~~用这么多分号作什么?
      

  3.   

    http://www.csdn.net/expert/TopicView.asp?id=512806
    救命啊