作为示例,给出下面的代码摘录,我想定义一个断点,每当对象字段值发生变化时就会触发断点,并且可以选择根据条件中断(False
or True
在这种情况下)。
type
TForm1 = class(TForm)
EnableButton: TButton;
DisableButton: TButton;
procedure EnableButtonClick(Sender: TObject);
procedure DisableButtonClick(Sender: TObject);
private
FValue: Boolean; // <== Would like to define a breakpoint here whenever FValue changes.
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DisableButtonClick(Sender: TObject);
begin
FValue := False;
end;
procedure TForm1.EnableButtonClick(Sender: TObject);
begin
FValue := True;
end;
在调试器下运行应用程序,
从 IDE 菜单中选择“运行”,然后选择最底部的“添加断点”,然后选择“数据断点...”。
输入“Form 1.Value”作为“地址:”字段的输入。您还可以在同一对话框中设置条件。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)