★关于Error如何跳过？？

Question

当Delphi遇到一个Error时候如何根据错误代码进行判断显示相应的提示？？【VB】中是这样的
On Error goto AA
   语句.....AA：
  if err.number=70 then
     msgbox "70错误，原因是....."
  end if【1】请问delphi中怎么写？？？？
【2】以及在VB中的on error resume next 那么在Delphi中怎么写？？

Answer 1

try
  X := Y/Z;
except
  on EZeroDivide do HandleZeroDivide;
end;

Answer 2

var
  a,b:integer;
  c:real;
begin
a:=10;
b:=0;
try
  c:=a/b;
except
  ShowMessage('错误！');
end;大量电脑书籍下载：
http://www.netyi.net/in.asp?id=ForMoreU

Answer 3

try
  {code}
except
  on E: Exception do
    MessageBox(0,PChar('错误原因：'+E.message),'提示',0+16)
end;

Answer 4

关于YI 常的捕获，我用的只是捕获所有YI常，然后做抬出对话框类似的处理。但是捕获某一个益常，我用不GUAI，你得先知道是什么样的错误！