083.发生在声明中的异常及其处理

原创于 2020-05-09 12:58:29 发布 · 154 阅读

0 ·

CC 4.0 BY-SA版权

Ada语言程序设计基础专栏收录该内容

105 篇文章

订阅专栏

本文深入探讨了Ada语言中异常处理的使用，通过具体示例解释了如何定义和捕获异常，特别是在子程序调用和类型约束错误处理中的应用。文章展示了如何在不同层级的程序结构中管理异常，以增强代码的健壮性和错误处理能力。

with Ada.Text_IO;
use Ada.Text_IO;

procedure Except4 is
   
   procedure Try_It is
      Value :constant :=8;
      subtype LIMIT_RANGE is Integer range 14..33;
      Funny :LIMIT_RANGE:=Value;
   begin
      Put_Line("We are in the try_it procedure ");
   exception
      when Constraint_Error=>
         Put_Line(" Constraint error occured!");
         Put_Line(" Detected in procedure Try_It");
   end Try_It;
   
   procedure Try_To_Fix_It is
   begin
      Put_Line("We are in the Try_to_Fix it");
      Try_It;
   exception
      when Constraint_Error=>
         Put_Line("Constraint error occured!");
         Put_Line("Detected in procedure Try_To_Fix_It");
   end Try_To_Fix_It;
   
   
begin
   
   Put_Line("Begin program here.");
   for Count in 1..4 loop
      Put_Line("ready to call try_to_fix_it.");
      Try_To_Fix_It;
      New_Line;
   end loop;
   Put_Line("end of program");
   
   
exception
   when Constraint_Error=>
              Put     ("Range error detected at the");
              Put_Line(" main program level.");
              Put_Line("Program terminated.");
end Except4;