delphi仅调试我的源代码

可能重复：

我有以下问题：当我运行应用程序时，调试器进入delphi的VCL源代码。我希望它只运行我编写的代码

例如：

temp := nil;
// Here is breakpoint, after that I wanna go line-by-line, so I'm hitting F7
while (Head <> nil) do begin
   if (Head^.Next = nil) then break;
   Temp := Head^.Next;
   dispose(Head); // <- here debugger goes into [*]
end;
if (Temp <> nil) then dispose(Temp);

---

我读过，但对我没有帮助。如何排除delphi源代码，只调试我的代码？

查看

Project->Options

菜单项。转到编译器选项，应该有一个“使用调试DCU”的设置。确保未选中该选项，您应该停止对标准库源的跟踪。

项目选项中是否禁用了“使用调试.dcus”？看起来您是对的。我一直在找，但是找不到

// [*]
procedure _Dispose(P: Pointer; TypeInfo: Pointer);
{$IFDEF PUREPASCAL}
begin
  _Finalize(P, TypeInfo);
  FreeMem(P);
end;
{$ELSE}
asm
        { ->    EAX     Pointer to object to be disposed        }
        {       EDX     Pointer to type info                    }

{$IFDEF ALIGN_STACK}
        SUB     ESP, 8
{$ENDIF ALIGN_STACK}
        PUSH    EAX
        CALL    _Finalize
        POP     EAX
{$IFDEF ALIGN_STACK}
        SUB     ESP, 4
{$ENDIF ALIGN_STACK}
        CALL    _FreeMem
{$IFDEF ALIGN_STACK}
        ADD     ESP, 12
{$ENDIF ALIGN_STACK}
end;
{$ENDIF !PUREPASCAL}