3

我在 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);

过程 TEXT_OF_LETTER (THE_LETTER: in out LETTER; TEXT: STRING);

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

程序 PUT_LETTER（THE_LETTER：在 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;'

提前致谢..

4

1 回答 1

5

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

于 2009-11-30T14:23:23.493 回答