Как обойти circular unit reference ?

← →
AndreyAs (2003-07-11 11:36) [0]

Часто встречается задача, когда есть 2 класса, которые имеют ссылки друг на друга. Примером являются классы VCL - TTreeNodes И TTreeNode. Проиллюстрирую:

TObject1 = class
Object2: TObject2;
end;

TObject2 = class
Object1: TObject1;
end;

Проблема возникает только в случае, если эти классы нужно разместить в разных модулях. Возникает ошибка компиляции [Fatal Error] Circular unit reference.

Можно хранить ссылку на дуругой класс как pointer или TObject и приводить к необходимому типу, но такое решение мне видится не очень элегантным.

Уважаемые коллеги, если кому-то приходилось решать эту задачу, пожалуйста, подскажите.
Заранее огромное спасибо.

← →
Poirot © (2003-07-11 11:37) [1]

Делай не сами классы, а типы указателей на них!

Издеваетесь Вы что ли ?!
http://delphimaster.net/view/15-1057754132/

Как обойти circular unit reference ? Найти похожие ветки