在过程中使用包规范

在

procedure Using_Ads_Package is
   package Variable is
      Var : Unbounded_String;
   end Variable;
begin

你已经创建了一个新的范围package Variable.在外面Variable,Var不是直接可见的.

在外面Variable,你有两种方式可以参考Var.

首先,您可以命名明确声明它的包:

   Get_Line (Variable.Var);

或者,您可以use Variable:

   package Variable is
      Var : Unbounded_String;
   end Variable;
   use Variable;
begin
   Get_Line (Var);