[CarnoPhage]

Всем привет. Не вдаваясь в подробности, сразу задам вопрос, как при построении классов, объявить в одном из них, объект с типом, который объявляется ниже? Например

Код:

1 2 3 4 5 6 7 8 9 10 11

type TBag = class ... public    Box1 : TBox end;   type TBox = class ... public    Bag1 : TBag end;

Вот по сути, объект сумка, который хранит коробку, которая хранит сумку и т.д., классы местами поменять не могу, поэтому нужно выкручиваться. Да, я могу указать Box1 как pointer и при разработке присваивать его уже TBox, но хотелось бы без костылей/

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10

type   <font color="Red">TBox = class;</font>     TBag = class     FBox: TBox;   end;     TBox = class     FBag: TBag;   end;

[Pyro]

ещё вместо pointer-ов можно использовать TObject или других предков + слово as для приведения