小编Lam*_*rtA的帖子

假设我有两个记录:人与动物.每条记录都在一个单独的包中.

套餐人员:

with animals;
use animals;

package persons is 

    type person is record
     ...
     animalref: animalPOINTER;
     ...
    end record;

    type personPOINTER is access person;

end persons;

包装动物:

with persons;
use persons;

package animals is 
    type animal is record
     ...
     ownerref:  personPOINTER;
     ...
    end record;

    type animalPOINTER is access animal;

end animals;

我在这里有循环单元依赖,编译器会产生致命错误.

有没有人有解决这个问题的模式？

谢谢!