异常处理

一、Delphi对异常处理有两种结构。

第一种：

try
  …
except
  on Exception do…
   //on EZeroDivide do… 
   //on EOverflow do…
   //on EMathError do…
   …
end;

第二种

try
  …
finally
  …
end;

 

二、嵌套使用异常：

try
  try
    ...
  except
      ...
  end;
finally
  ...
end;

三、使用异常对象。

例如：

try
  ScrollBar1.Max := ScrollBar1.min-1;
except
  on E:EInvalidOperation do
    ShowMessage('exception' + E.Message);
end;