当 Delphi 中发生无限循环时,当我按下停止按钮时,调试器甚至不会给我堆栈跟踪。如果我怀疑程序在哪里停止,我可以放置一个断点,如果这是正确的无限循环,它将停止。
下面是一个故意造成无限循环的示例程序:
procedure TForm1.btnDebugInfiniteLoopClick(Sender: TObject);
var I: Integer;
begin
I:=0;
while I<100 do begin
I:=1+1;
if I>64 then I:=I div 2;
end;
end;
当停止时,我得到的东西看起来像:
ntdll.RtlUserThreadStart:
776301B4 89442404 mov [esp+$04],eax
776301B8 895C2408 mov [esp+$08],ebx
776301BC E9E99C0200 jmp $77659eaa
776301C1 8DA42400000000 lea esp,[esp+$0000]
776301C8 8DA42400000000 lea esp,[esp+$0000]
776301CF 90 nop
ntdll.KiFastSystemCall:
776301D0 8BD4 mov edx,esp
...
当我单步执行 (F7) 时,它单步执行几行,然后锁定,直到我再次按下中断键,此时我得到相同的结果。
罗布·肯尼迪在评论中回答。我必须从调试窗口打开线程视图以获取线程列表并选择正确的线程;那时我可以看到我的程序在哪里无限循环。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)