在如下代码中,当i为1时,无法关闭窗口,退出程序。
点击关闭按钮,老是弹出“游戏时间不能为零或负数'”对话框。
procedure Tform1.UpDown1click(sender:Tobject,Button:);
var
i:integer;
begin
//读入游戏时间
i:=inifile.readinteger('setup','time',5);
//修改游戏时间
if button=btNext then
i:=i+1
else
if i>0 then
i:=i-1
else
showmessage('游戏时间不能为零或负数'):
//保存游戏时间
inifile.writeinteger('setup','time',i);
end;