有一段程序:
procedur form1.buttonclick()
var
i,re,s:INTEGER;
begin
s:=1;
re:=0;
for i:=1 to 100 do
re:=re+s*i;
edit1.text:=inttostr(re);
end;
end.
程序本身没有运行没有问题。
我主要是掌握断点调试的方法。
我在re:=re+s*i这一行设置断点,
在断点属性表中设置如下:
CONDITION:I=5;PASS COUNT为2(或为0);
然后在RUN->EVALUATION/MODIFY,弹出计算/修改框。
EXPRESS选择RE或re:=re+s*i或其他在上面程序中定义的参数I,S。按下EVALUMATE,
在RESULT中显示出一下:
UNDECLARE IDENTIFIER ‘RE’或‘i’'s'。
事实在程序中已经定义了re,i,s。
请问应当怎样操作才对?象我上面设置了条件,怎样才能看出调试的结果?
procedur form1.buttonclick()
var
i,re,s:INTEGER;
begin
s:=1;
re:=0;
for i:=1 to 100 do
re:=re+s*i;
edit1.text:=inttostr(re);
end;
end.
程序本身没有运行没有问题。
我主要是掌握断点调试的方法。
我在re:=re+s*i这一行设置断点,
在断点属性表中设置如下:
CONDITION:I=5;PASS COUNT为2(或为0);
然后在RUN->EVALUATION/MODIFY,弹出计算/修改框。
EXPRESS选择RE或re:=re+s*i或其他在上面程序中定义的参数I,S。按下EVALUMATE,
在RESULT中显示出一下:
UNDECLARE IDENTIFIER ‘RE’或‘i’'s'。
事实在程序中已经定义了re,i,s。
请问应当怎样操作才对?象我上面设置了条件,怎样才能看出调试的结果?
procedure TForm1.Button1Click(Sender: TObject);
var
i,re,s:INTEGER;
begin
s:=1;
re:=0;
for i:=1 to 100 do
begin
re:=re+s*i;
//
if i=10 then
begin
showmessage('i='+inttostr(i));
showmessage('re='+inttostr(re));
showmessage('s='+inttostr(s));
end;
end;
edit1.text:=inttostr(re);end;
这一步我也做过
没有效果