L
loess
Unregistered / Unconfirmed
GUEST, unregistred user!
我是在测试一个异常处理,但出现异常后程序不执行except后面的语句
那位帮我解释一下?
多谢!
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ScrollBar1.Max := ScrollBar1.Min - 1;
except
on E:EInvalidOperation do
MessageDlg('Ignoring Exception:',mtInformation,[mbOK],0);
end;
end;
那位帮我解释一下?
多谢!
procedure TForm1.Button1Click(Sender: TObject);
begin
try
ScrollBar1.Max := ScrollBar1.Min - 1;
except
on E:EInvalidOperation do
MessageDlg('Ignoring Exception:',mtInformation,[mbOK],0);
end;
end;