Var
SaveDW : Integer;
Begin
SaveDW := 0;
for dw:=0 to dwItemCount-1 do
begin
.....
SaveDW := DW; //退出时保存
end;
//注,用于FOR循环的变量,在外面取值有时会出错.所以在退出时要先另外保存起了.
//相信楼主的代码在编译时会有警告提示.
for dw:=0 to dwItemCount-1 do
begin
.....
end;
if dw = dwItemCount then
////////////////////////////
dw 在做循环变量的时候是压到栈里边的,编译器要对其进行优化,
如果你的循环体中没有使用到 dw,你还会发现dw 是从dwItemCount-1 降到 0
的
Integer值,delphi 不会初始化为 0
String 却是自动初始化为'' 的
不对的地方请指教