“缺少私有类型的完整声明..”在 Ada

Question

我在 Ada 中使用包 ADS 文件时遇到问题。 我收到“缺少私有类型 LETTER 的完整声明”的错误。 我该如何处理？

这是我写的代码：

包 LETTER_SPEC 是

类型 LETTER 是私有的；

程序 DATE_OF_LETTER (THE_LETTER: in out LETTER; DATE: STRING);

程序 RECIPIENT_NAME (THE_LETTER: in out LETTER; NAME: STRING);

程序 SUBJECT_LINE (THE_LETTER: in out LETTER; SUBJECT: STRING);

procedure TEXT_OF_LETTER (THE_LETTER: in out LETTER; TEXT: STRING);

procedure SENDER_NAME (THE_LETTER: in out LETTER; NAME: STRING);

procedure PUT_LETTER (THE_LETTER: in LETTER);

私人

类型 PTR_LETTER 是访问字符串；

类型 LETTER_DATA 是

   record

      DATE_OF_LETTER: PTR_LETTER;

       RECIPIENT_NAME: PTR_LETTER;

      SUBJECT_LINE: PTR_LETTER;

       TEXT_OF_LETTER: PTR_LETTER;

       SENDER_NAME: PTR_LETTER;

   end record;

结束 LETTER_SPEC;'

提前谢谢..

Answer 1

Ada 抱怨是因为您在私有部分声明了 LETTER_DATA 类型而不是 LETTER 类型。