直接封装和间接封装可以用在支持封装的任何程序中,而不 管其在语言中实现的封装模型是什么 虽然Ada中使用直接封装,程序员也可以实现间接封装 图8.3展示了Ada中的两种实现策略。分别对应图82的两种模 型的实现。 图8.3b的直接封装的变体可以为: acKage A Type MyStack is record Top: integer A: array(1.100)of integer End record 在此情形,激活记录组织和直接封装一样,但是,所有名字 均在B中可见。 这也是在不提供封装机制的语言中常用的方式直接封装和间接封装可以用在支持封装的任何程序中，而不 管其在语言中实现的封装模型是什么。 虽然Ada中使用直接封装，程序员也可以实现间接封装。 图8.3展示了Ada中的两种实现策略。分别对应图8.2的两种模 型的实现。 图8.3b的直接封装的变体可以为： Package A is Type MyStack is record Top: integer; A: array (1..100) of integer; End record; …. 在此情形，激活记录组织和直接封装一样，但是，所有名字 均在B中可见。 这也是在不提供封装机制的语言中常用的方式