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

Question

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

这是我写的代码：

  

包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：in LETTER）;

     

私有

     

输入PTR_LETTER是STRING;

     

类型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类型。