delphi中使用for循环遇到的问题

今天在写程序时，使用了for循环，发现一个问题，for循环的基本形式为：

for i:=0 to count do

其中如果count在循环的过程中，发生变化时（如：循环显示列表的各项，但在运行过程中又往列表中加入了新项，这时列表的总项数就发生了改变），就会出现问题。

下面一个小例子说明下，

如果count 起初是5，在循环的过程中将其增加到10，则for循环仍旧按照5来运行，如：

1 num : = 0 ;
2 count : = 5 ;
3
4 for i: = 0 to count do
5 begin
6 num : = num + 1 ;
7 if count < 10 then
8 count : = count + 1 ;
9 end ;

执行程序后，num的值是6，for循环忽略了count值的变化，但是如果使用while循环

1 num : = 0 ;
2 count : = 5 ;
3
4 while (i <= count) do
5 begin
6 num : = num + 1 ;
7 if count < 10 then
8 count : = count + 1 ;
9 i: = i + 1 ;
10 end ;

执行程序后，num的值是11，说明while并没有忽略了count值的变化，而是每一次都取一次count的值。

转载于:https://www.cnblogs.com/baoluo/archive/2011/04/22/2025337.html