procedure TForm1.Button1Click(Sender: TObject);
var
sum,i:integer;//错误1:没有定义变量
begin
sum:=0;
i:=1;
repeat
sum:=sum+i;
i:=i+1;
until i >100;
showmessage(inttostr(sum));//错误2:inttostr函数没有参数
end;
下面一行有错，参数不对：
showmessage(inttostr);
应该修改为：
showmessage(inttostr(sum));
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024