delphi – For循环变量违反循环绑定
发布时间:2020-12-15 09:15:29 所属栏目:大数据 来源:网络整理
导读:今天我遇到了很奇怪的bug. 我有下一个代码: var i: integer;...for i := 0 to FileNames.Count - 1 dobegin ShowMessage(IntToStr(i) + ' from ' + IntToStr(FileNames.Count - 1)); FileName := FileNames[i]; ...end; ShowMessage('all'); FileNames列表
今天我遇到了很奇怪的bug.
我有下一个代码: var i: integer; ... for i := 0 to FileNames.Count - 1 do begin ShowMessage(IntToStr(i) + ' from ' + IntToStr(FileNames.Count - 1)); FileName := FileNames[i]; ... end; ShowMessage('all'); FileNames列表有一个元素.所以,我认为然后循环将被执行一次,我看到了 0 from 0 all 这是我做了几千次的事情:). 0 from 0 1 from 0 all 没有代码优化循环迭代正确. 所以任何建议都会非常有帮助.谢谢. 我使用Delphi 2005(Upd2)编译器. 解决方法
考虑到LU RD提到的质量控制报告,以及我自己对D2005的经验,这里有一些解决方法.我记得自己使用while循环解决方案.
1.将for循环写为while循环 var i: integer; begin i := 0; while i < FileNames.Count do begin ... inc(i); end; end; 2.从任何其他处理中单独保留for循环控制变量,并使用一个单独的变量,在循环中递增,用于字符串操作和FileNames索引. var ctrl,indx: integer; begin indx := 0; for ctrl := 0 to FileNames.Count-1 do begin // use indx for string manipulation and FileNames indx inc(indx); end; end; 你暗示了一个解决方法,说没有代码优化循环迭代正确.假设你有优化,在程序/函数之前关闭它({$O-}),之后再关闭({$O}).注意! Optimization指令只能用于至少整个过程/函数. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |