变量循环赋值解决办法

变量循环赋值
已知定义了n个变量
var
   S001,S002,S003.......S00N: integer

如何将1,2,3.......n赋值到以上变量。
(一行一行的赋值的做法就不要说了)

  
------解决思路----------------------
这样,不好摆弄。
建议使用数组:Arrary[0..n] of integ;

------解决思路----------------------
这种情况就是数组的天空,直接上数组。
如果楼主追求的更高端的话,局部变量可以用汇编对EBP-ESP之间的地址进行赋值也可以达到这个目的,不过要注意其他变量的影响。
------解决思路----------------------
什么情况会定义这么多变量还不能用数组?
------解决思路----------------------
还有一种比数组好看一点的,枚举
------解决思路----------------------
还是数组吧。。。枚举。。好累·~~变量循环赋值解决办法