请给个例子,谢谢。 立即给分

解决方案 »

  1.   

    try
      ...
    except
      on e:exception do
      ....
    end;
      

  2.   

    var 
      i: Integer;
    try
      i:= 8 div 0;
    except
      ShowMessage('Divied by zero!');
    end;
      

  3.   

    我是个新手,请再详细点,对于on e:exception do 我完全不懂。。谢谢
      

  4.   

    on e:exception do 
    begin
      ...
      ...
      ...
    end;
    就相当与 VB的 ON ERROR GOTO
    触发错误后执行指定的语句
    另外on e:exception do 还把错误类别进行了细分
    exception是所有错误的祖先类 
    你可以指定一个子类 专门捕获某一类型的错误
    比如捕获被零除的错误 它有专门的错误类名 比如exceptdiveonzero(记不得实际名字了)
    就可以对付各种不同类型的错误,分别做不同的处理了
    相当与 ON ERROR1 GOTO 1
           ON ERROR2 GOTO 2
           ......
    一个集合的功能