小编inf*_*ite的帖子

我想在一个过程中使用一个包规范.

有些东西不见了,但我不知道是什么.

using_ads_package.adb:14:11:"var"不可见

using_ads_package.adb:14:11:第8行的不可见声明

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_IO.Unbounded_IO;  use Ada.Text_IO.Unbounded_IO;

Procedure using_ads_package is

   Package variable is

      var : Unbounded_String ;

   end variable ;

Begin

   get_line(var);

End using_ads_package ;

我正在尝试返回一个全局变量的String值,并希望稍后在一个过程中使用使用它的函数.

function get_name return String
is begin
Put_line("Your name?");
 Get(name); -- name is in "globals"
 put(name);
return name;
end get_name;

包文件=

package globals
is
name : String(1..20) ;
end globals; 

这里是函数中使用的"获取"=

       procedure Get (Item : out String);

现在,如果我在一个过程中使用fonction,它会编译但是=

在启动时,没有得到执行,程序"创建"一个"跳过"线!!？

那么,是否可以使用此过程获取函数？

你如何调用包含它的函数？