ada异常捕获示例代码

代码语言:ada

所属分类:其他

代码描述:ada异常捕获示例代码

代码标签: 示例

下面为部分代码预览,完整代码请点击下载或在bfwstudio webide中打开

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Exceptions; use Ada.Exceptions;
procedure Exceptions is
   E : exception;
   procedure Q is
   begin raise E;
   end Q;
   procedure P is
   begin Q;
   exception
      when E =>
         Put_Line ("caught E in P");
         raise Program_Error;
      when X : others =>
  .........完整代码请登录后点击上方下载按钮下载查看

网友评论0