delphi中的异常捕捉except、finally、exit、abort、halt等

except捕捉到异常后,外层不会再捕捉到,外层finally会执行

var
  n: integer;
begin
  try
    try
      try
        n := StrToInt('test');
      except
        Memo1.Lines.Add('except')
      end;
    except
      Memo1.Lines.Add('except 2')
    end;
  finally
    Memo1.Lines.Add('finally')
  end;
end;

{
except
finally
}

finally不会捕捉异常,知识无论异常是否发生,都会执行,执行完后,外层继续可以捕捉到异常

try
    try
        try
            n := StrToInt('test');
        finally
            Memo1.Lines.Add('finally')
        end;
    except
        Memo1.Lines.Add('except')
    end;
finally
    Memo1.Lines.Add('finally 2')
end;
{
finally
except
finally 2
}

exit相当于后面的代码注释掉不执行,不影响exceptfinally的行为

try
    try
        try
            exit;
        finally
            Memo1.Lines.Add('finally')
        end;
    except
        Memo1.Lines.Add('except')
    end;
finally
    Memo1.Lines.Add('finally 2')
end;
{
finally
finally 2
}

abort也相当于注释后面的代码,不执行,但是会抛出异常,被外层except捕捉到

try
    try
        try
            abort;
        finally
            Memo1.Lines.Add('finally')
        end;
    except
        Memo1.Lines.Add('except')
    end;
finally
    Memo1.Lines.Add('finally 2')
end;
{
finally
except
finally 2
}

haltApplication.Terminate等终止程序的代码,无视exceptfinally,不会触发,程序立刻终止。
PS:
Close会发生FormClose事件,FormCloseQuery事件
Halt会发生FormDestory事件,
Application.Terminate以上三个事件都不会发生

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值