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

来源:互联网 时间:1970-01-01

今天在写程序时,使用了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的值。


相关阅读:
Top