Question

delphi中Exception类怎么使用

Answer 1

Exception 类是 delphi 的异常处理类，在Delphi中，每个异常都是 Exception 类的一个派生类。

该类的使用通常如下：

1、手动抛出异常

begin
  raise Exception.Create('异常信息说明文字');
end;

2、定义异常、捕获异常

try
    Age :=StrToInt(Edit1.Text);
    ShowMessage(Format('生于%d年',[YearOf(Now)- Age]));
except
    on EConvertError do
       showmessage('输入编辑框的不是一个有效的数字!');
    on ERangeError do
       showmessage('输入编辑框的年龄值太大!');
end;

上述代码中，EConvertError 和 ERangeError 都是预定义的 Exception 派生异常类。