Question

delphi中Exception类怎么使用

怎么在程序中捕获到异常？能跟java或C#一样try...catch吗？可不可以自定义抛出异常？

Answer 1

try
//...............代码

except on E: Exception do
begin
showmessage(e.message);//捕获系统异常
exit;
end;
// showmessage('Sorry,...失败！');----自定义抛出异常
end;

Answer 2

乔同学，情况是这样的

procedure TForm1.Button1Click(Sender: TObject);
begin
raise Exception.Create('test')
end;