dim sfile[5] as string 
For i := 0 To 4    
      sFile[i] = form1.Text1(i).Text
      
exit for
 
我在  delphi 中如何写,能向vb那样有控件数组吗?vb 的 do..loop 和delphi的
while...doend;
功能一样吧???