Как правильно импортировать модули?

Question

[NSliM]

Доброго времени суток. Подскажите как правильно импортировать модули в случае, когда объект родитель содержит в себе поля класса ребенка, а объект ребенка содержит в себе типизированный указатель на объект родитель. Ведь в модуле родителя должен быть импортирован модуль с классом ребенка, а в модуле ребенка должен быть импортирован модуль с классом родителя. А в этом случае вознивает ошибка "Circular unit reference". Как быть в такой ситуации, кроме импорта в секции implementation?

Answer 1

[Константин Цветков]

в модуле родителя должен быть импортирован модуль с классом ребенка

"родитель" не должен знать о "ребёнке".

родитель содержит в себе поля класса ребенка

Это ошибка. Перенесите все поля в "родителя".

родитель это приложение

child'ы это компоненты приложения

Как видите формы не наследуются от приложения. А находятся в одном модуле.
И приложение управляет ими, поскольку их создаёт:Application.CreateForm(TForm1, Form1);
А форма имеет доступ к приложению:Application.ExeName;

я говорю не о наследовании.

Расположите их в одном модуле.

Примечание: paren:^TParent - это масло мысленное, так как переменная-объект - это и есть ссылка. Поэтому Proc1(Obj: TMyObject) и Proc1(var Obj: TMyObject) будут выполняться по-разному.

Comments

[NSliM]

Похоже я неправильно выразился, сейчас попробую исправиться.
Класс TParent содержит поле child:TChild, а класс TChild содержит поле paren:^TParent. В модуле parent необходимо импортировать модуль child, а в модуле child необходимо импортировать модуль parent, чтоб оба класса могли создать свои поля. Но так не работает, появляется вышеописанная ошибка. Как быть в такой ситуации?

[Константин Цветков]

Класс TParent содержит поле child:TChild

Это ошибка. Зачем TParent знать о TChild?

[NSliM]

Например для освобождения паняти: в случае удаления родителя он удалит своих child'ов. В противном случае, если объект родитель даже не знает что он родитель, я не понимаю назначения подобной организации объектов (

UPD:
Или, например, такой случай, когда родитель это приложение и его задача создавать/удалять/управлять объектами child'ами, а так же хранить общую для всех информацию о, например, состояниях. А child'ы это компоненты приложения и должны содержать ссылку на объект приложения для доступа к общей информации.

[Константин Цветков]

NSliM,

родитель это приложение

child'ы это компоненты приложения

Как видите формы не наследуются от приложения. А находятся в одном модуле.
И приложение управляет ими, поскольку их создаёт:Application.CreateForm(TForm1, Form1);
А форма имеет доступ к приложению:Application.ExeName;

[NSliM]

Константин Цветков, я говорю не о наследовании. Пример с приложением абсолютно абстрактный и иерархия классов vcl совершенно ни при чем.

[Константин Цветков]

NSliM, Если вам не нужно наследование, то не называйте эти классы TParent и TChild. Расположите их в одном модуле.

[NSliM]

Константин Цветков, мне почему-то казалось, что механизм модулей придумали чтоб разделять части кода, а не объединять их...
Очень не хотелось бы объединять в один модуль, т.к. имел опыт работы с подобными портянками. Когда объем кода растет, очень тяжело поддерживать потом. Во всяком случае мне...

[Константин Цветков]

NSliM,

[Hemul GM]

NSliM,

мне почему-то казалось, что механизм модулей придумали чтоб разделять части кода, а не объединять их...

Классы одного назначения логично держать в одном модуле и как раз это решит вашу проблему. Модули предназначены для разделения кода на части, а не разделения на классы (как это, например, принято в Шарпе).

TParent и TChild должны быть в одном модуле. Это позволит иметь ссылки друг на друга, объединить логически классы и достаточно будет подключить один модуль, чтобы использовать эти классы, а не каждый раз два модуля.

[NSliM]

Hemul GM, Константин Цветков, большое спасибо за помощь. Теперь я понял свою ошибку.

[Константин Цветков]

NSliM, Что бы два раза не вставать. paren:^TParent - это масло мысленное, так как переменная-объект - это и есть ссылка.

[NSliM]

Константин Цветков, да, согласен. Перегнул немного ) Но я это исключительно для наглядности, чесслово.