在艾达“缺少完整的声明为私有类型。”

Question

我使用在阿达包ADS文件具有的问题。 我收到“缺少私人类型LETTER完整的声明”的错误。 我该如何处理呢？

这是我写的代码：

  

包LETTER_SPEC是

     

型LETTER是私有的;

     

过程DATE_OF_LETTER（THE_LETTER：在出LETTER; DATE：STRING）;

     

过程RECIPIENT_NAME（THE_LETTER：在出LETTER; NAME：STRING）;

     

过程SUBJECT_LINE（THE_LETTER：在出LETTER; SUBJECT：STRING）;

     

过程TEXT_OF_LETTER（THE_LETTER：在出LETTER; TEXT：STRING）;

     

过程SENDER_NAME（THE_LETTER：在出LETTER; NAME：STRING）;

     

过程PUT_LETTER（THE_LETTER：在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

阿达抱怨因为你在私人部分声明一个LETTER_DATA类型，而不是一个LETTER类型。