DELPHI基础:DELPHI设置断点的方法

断点指的是在程序代码的某一行上设一个标记，程序执行到这里时将暂停，由调试器控制程序的运行。程序中可以设置多个断点，并能给断点设置条件。

在代码我器中根据不同的颜色查看当前执行的情况。例如，断点通常用红底白字表示，当前执行的代码行用蓝底白字表示。这种功能可以使用户对调试状态一目了然。

断点通常设在怀疑有问题的区域，在遇到断点之前，程序以全速运行，遇到断点之后，程序将暂停运行，然后就可以单步或跟踪执行程序。

1．设置断点

可以在调试前设置断点，也可以在调试期间设置断点。设置断点的方法有以下几种：

·单击某一行的最左端小圆点，使该行变成红底白字。

·把光标移动到要设置断点的行上，按F5键或选择RunIAdd Breakpoint命令。

断点行一般是红色显示，且左边有一个标记，无效断点会显示不同标记。在程序中设置2个断点时的情况。

2．查找断点

如果设置了多个断点，而且断点不在当前我窗体，选择ViewlDebug windowsl Breakpoints命令来打开断点列表。可以在列表中找到断点所在行号，2个断点分别在第32行与第41行，从而可根据行号在程序中定位断点。

3．删除断点

如果要删除所有的断点，可以在断点列表中右击，在d出的快捷菜单中单击Delete All命令或者用下列方法删除指定断点。

①把光标移到要删除的断点行上，按F5键。

②在代码我器中单击断点行的最左端，使红色的断点标记消失。

4．禁止和激活断点

设置断点以后，Delphi的内部集成调试器也可以根据需要随时禁用这个断点，使这个断点暂时无效，程序执行到这里不会停下来，但断点的设置继续保留，以后还可以使用。如果要禁止所有断点，可以右击断点列表，在d出的菜单中选择Breakpoints l Disable All命令，被禁止的断点变为绿色。如果要激活所有的断点，可以选择Enable All命令，使断点变为红色。要暂时禁止某个断点，可以在断点列表中右击该断点，在d出的快捷菜单中选择Enabled命令，Enabled之前的复选标记将消失。要重新激活这个断点，应在Enabled之前加上复选标记。

5．修改断点的属性

设置断点时可以指定断点的属性，也可以在以后修改它的属性。断点的属性包括：

·断点所在的行号。

·断点有效的条件，通常是一个布尔表达式。如果没有指定断点条件，则每次执行到断点时，运行都将暂停。

·包含断点的文件名称及其路径。

要设置或修改断点的属性，可以选择Run l Add Breakpoint I Source Breakpoint命令，或在断点列表中右击某个断点，在快捷菜单中选择Propertis命令，打开Add Source Breakpoint对话框，在其中进行设置或修改，还可进行条件断点的设置。

if edit1.text := '' then

这么写是错的

:=是赋值，不是比较。delphi中比较是=号

应该是

if edit1.text = '' then

begin

showmessage('不能为空')

Exit//这里加个exit，表示退出此过程或者函数，后面的代码不会执行。

end；

begin

showmessage('不能为空')

end；

4步走

1.申明3个全局变量M_Pause: BOOL[用来控制暂停\继续]

Loop_i, Result_i: integer

2.Form的OnCreate事件中初始化 M_Pause:=False

3.Button1的Caption为[启动] Button2的Caption为[暂停]

4.为2个按钮写如下代码[Sleep()控制速度]

procedure TForm1.Button1Click(Sender: TObject)

begin

While Not M_Pause do begin

Result_i:=Result_i+Loop_i+1

inc(Loop_i)

Text:=inttostr(Result_i)

Application.ProcessMessages

Sleep(300)

end

end

procedure TForm1.Button2Click(Sender: TObject)

begin

M_Pause:=Not M_Pause

If M_Pause then Button2.Caption:='继续' else Button2.Caption:='暂停'

Application.ProcessMessages

Button1Click(Sender)

Sleep(300)

end

D7下测试通过, 当然你也可以使用Timer控件。

---