Ada不可见声明错误

我在生成器上收到“不可见声明”错误。我正在将此代码从单个过程转换为使用多个过程和函数

我已经把代码截断了一点，对不可见声明错误的任何解释都将不胜感激。 此代码块中出现不可见声明错误：

WITH Ada.Integer_Text_IO;
USE Ada.Integer_Text_IO;
WITH Ada.Text_IO;
USE Ada.Text_IO;
WITH Ada.Strings;
USE Ada.Strings;
WITH Ada.Numerics.Discrete_Random;

PROCEDURE Project IS
SUBTYPE Guess IS Integer RANGE 1 .. 25;
G             : Generator;
CorrectAnswer : Guess;
UserGuess     : Guess;
BEGIN
Reset (G);    
CorrectAnswer := Random(G);
   FOR I IN 1..3 LOOP          
      GetUserGuess(UserGuess);
      PrintCorrectAns(CorrectAnswer);
      IF IsCorrect(UserGuess) THEN
         Put("You Win!");
      ELSE
         Put("You Lose!");
      END IF;
   END LOOP;
End Project;

---

a-nudira.ads:48和

50

（行号可能随编译器版本而变化）上的

不可见声明是因为
Ada.Numerics.Discrete\u Random
是一个通用包，需要使用您需要的离散类型进行实例化

在你的情况下，我想这是
猜测
：

包RNG是新的Ada.Numerics.Discrete\u Random（Result\u Subtype=>Guess）；
使用RNG；
a-nudira.ads:48

和

50

（行号可能随编译器版本而异）上的

不可见声明是因为
Ada.Numerics.Discrete\u Random
是一个通用包，需要使用您需要的离散类型进行实例化

在你的情况下，我想这是
猜测
：

包RNG是新的Ada.Numerics.Discrete\u Random（Result\u Subtype=>Guess）；
使用RNG；
Read，您应该创建尽可能短的复制错误的示例。删除与问题无关的代码。但是它仍然需要可编译。另外，你不能复制并粘贴编译器给你的实际错误文本吗？这里的编辑是怎么回事？请停止所有回滚。阅读，您应该创建尽可能短的复制错误的示例。删除与问题无关的代码。但是它仍然需要可编译。另外，你不能复制并粘贴编译器给你的实际错误文本吗？这里的编辑是怎么回事？请停止所有回滚。