for i := 1 to 100 do begin if i = 55 then showmessage('Stop'); //在这里下一个断点就可以了 end;
调试也是一门学问 例如 for i := 1 to 100 do begin Test。。 end; 在Test上打断点, 然后在小红点那点右键选Break Point Property , 在condition里写i=55
var I: Integer; begin for I := 0 to 100 do Caption := IntToStr(I); // 先将鼠标放这里,然后 Run - AddPointBreadk- Source PointBreadk, 点开有个对话框,在Condition打上 i = 55 ,运行 end;
begin
if i = 55 then
showmessage('Stop'); //在这里下一个断点就可以了
end;
例如
for i := 1 to 100 do
begin
Test。。
end;
在Test上打断点, 然后在小红点那点右键选Break Point Property , 在condition里写i=55
var
I: Integer;
begin
for I := 0 to 100 do
Caption := IntToStr(I); // 先将鼠标放这里,然后 Run - AddPointBreadk- Source PointBreadk, 点开有个对话框,在Condition打上 i = 55 ,运行
end;