Delphi中for、while 使用注意事项

循环查找并删除指定条件元素：

1. program Project2;
3. {$APPTYPE CONSOLE}
5. uses
6.   SysUtils, Classes;
8. var
9.   StrList: TStringList;
10.   J: Integer;
12. procedure DeleteByWhile;
13. var
14.   I: Integer;
15. begin
16.   I := 0;
17.   while I.Count do
18.   begin
19.     Writeln(Format('While Loop I=%d StrList.Count=%d', [I, StrList.Count]));
21.     if StrList[I] = '3' then
22.     begin
23.       StrList.Delete(I);
24.     end;
26.     I := I+1;
27.   end;
28. end;
30. procedure DeleteByFor;
31. var
32.   I: Integer;
33. begin
34.   for I := 0 to StrList.Count - 1 do
35.   begin
36.     Writeln(Format('For Loop I=%d StrList.Count=%d', [I, StrList.Count]));
38.     if StrList[I] = '3' then
39.     begin
40.       StrList.Delete(I);
41.     end;
42.   end;
43. end;
45. begin
46.   try
47.     StrList := TStringList.Create;
48.     try
49.       for J := 0 to 10 - 1 do
50.         StrList.Add(IntToStr(J));
52.       //DeleteByWhile;
53.       DeleteByFor;
54.     finally
55.       StrList.Free;
56.     end;
57.   except
58.     on E:Exception do
59.       Writeln(E.Classname, ': ', E.Message);
60.   end;
62.   Sleep(300000);
63. end.

调用DeleterByFor运行结果：
For Loop I=0 StrList.Count=10
For Loop I=1 StrList.Count=10
For Loop I=2 StrList.Count=10
For Loop I=3 StrList.Count=10
For Loop I=4 StrList.Count=9
For Loop I=5 StrList.Count=9
For Loop I=6 StrList.Count=9
For Loop I=7 StrList.Count=9
For Loop I=8 StrList.Count=9
For Loop I=9 StrList.Count=9
EStringListError: List index out of bounds (9)

调用DeleteByWhile运行结果：
While Loop I=0 StrList.Count=10
While Loop I=1 StrList.Count=10
While Loop I=2 StrList.Count=10
While Loop I=3 StrList.Count=10
While Loop I=4 StrList.Count=9
While Loop I=5 StrList.Count=9
While Loop I=6 StrList.Count=9
While Loop I=7 StrList.Count=9
While Loop I=8 StrList.Count=9

从上面的实例可以看出，for循环中循环最小和最大值是在一开始就确定了，在程序运行过程中不会因为其他因素的影响而改变；而while循环是每次都进行条件比较，而且是动态的读取参数的值。

 

如果将DeleteByFor函数改成:

1. procedure DeleteByFor;
2. var
3.   I: Integer;
4. begin
5.   for I := StrList.Count - 1 downto 0 do
6.   begin
7.     Writeln(Format('For Loop I=%d StrList.Count=%d', [I, StrList.Count]));
9.     if StrList[I] = '3' then
10.     begin
11.       StrList.Delete(I);
12.     end;
13.   end;
14. end;

则运行结果：
For Loop I=9 StrList.Count=10
For Loop I=8 StrList.Count=10
For Loop I=7 StrList.Count=10
For Loop I=6 StrList.Count=10
For Loop I=5 StrList.Count=10
For Loop I=4 StrList.Count=10
For Loop I=3 StrList.Count=10
For Loop I=2 StrList.Count=9
For Loop I=1 StrList.Count=9
For Loop I=0 StrList.Count=9

从上面的结果可以总结出，当我们要循环查找并且删除指定条件的元素时，一定要用while或者由大到小的for循环。否则会引起不必要的错误！