delphi - Delphi中无法在Exit语句处设置断点？

Question

我尝试在 Exit 语句处设置断点，如下所示:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := 5;

  if I = 5 then
    Exit;

end;

但是当程序启动时，断点会变成红十字，表示不可用。为什么？我正在使用项目的“调试”版本，并使用“运行”按钮来调试项目。

Answer 1

除了使用 HeartWare 建议的条件断点(这对性能的影响可能很大，具体取决于代码执行的频率)，您可以像这样更改代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := 5;
  if I = 5 then begin
    asm nop end; // <== put breakpoint here
    Exit;
  end;
end;

这为您提供了一个方便的放置断点的位置。