zoukankan      html  css  js  c++  java
  • Delphi 系统[14]关键字和保留字 try、finally、except、on、raise -异常处理语句

    Delphi 系统[14]关键字和保留字  try、finally、except、on、raise -异常处理语句

    1、定义:

    • try..finally 组合使用,构成异常处理语句。先执行 try 部分的语句,无论 try 部分是否执行成功,finally 部分都会被执行。
    • try..except on 组合使用,构成异常处理语句。正常情况下执行 try 部分的语句。 如果发生异常,则执行 except 后的语句。 
    • raise 用于抛出异常。如果希望通过外部程序处理异常,或是在异常发生时重新将异常抛出,可以使用 raise 语句。异常被抛出后,raise后面的代码将不被执行。 

    2、示例:

    { try finally(异常处理) } 
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
      Strs: TStringList; 
    begin 
      Strs := TStringList.Create; 
      try 
        Strs.Add('TaoRoy Test finnally'); 
        Caption := Strs[0]; 
      finally 
        Strs.Free; 
      end; 
    end; 
     
    
    { try except on else(异常处理) } 
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
      I: Integer; 
      S: String; 
    begin 
      S := '123A'; 
      try 
        I := StrToInt(S); 
      except 
        on EZeroDivide do 
          Caption := 'EZeroDivide'; 
        on EOverflow do   //EOverflow是浮点寄存器溢出的异常类。
          Caption := 'EOverflow'; 
        else 
          Caption := 'Unknow Error'; 
      end; 
    end; 
     
    
    { raise 抛出异常1 正常抛出} 
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
      I: Integer; 
    begin 
      I := -1; 
      if I < 0 then 
        raise exception.Create('整数不能小于 0'); 
    end; 
     
    { raise 抛出异常2 try except 中抛出} 
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
      I: Integer; 
      S: string; 
    begin 
      try 
        S := '222A333'; 
        I := StrToInt(S); 
      except 
        on E:exception do 
          raise exception.Create(E.Message); 
      end; 
    end; 
    

      

    创建时间:2021.08.11  更新时间:

    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    [转]Java中实现自定义的注解处理器
    [转]IntelliJ IDEA 自定义方法注解模板
    [转]Intellij Idea自动添加注释的方法
    C++中substr的用法
    C++中find()函数和rfind()函数的用法
    无符号类型
    标准库string与C风格字符串
    vector对象
    string 类(二)
    string类
  • 原文地址:https://www.cnblogs.com/guorongtao/p/15129101.html
Copyright © 2011-2022 走看看