[Novikov]

Всем привет.
Мне нужна подсказка в организации классов.

Если я имею Tobject1 и в нем должно быть много других объектов.
Мне показалось логичным сделать поле TList в нем и создавать другие объекты пусть будет типа TSecondObject.

Код:

type

TSecondObject=class
...
end;

Tobject1=class
ListObjects:TList;
end;

Но вот в чем загвоздка, мне необходимо чтобы каждый объект в списке знали все про Объект1.

Сделать поле в этих вторичных объектаз с типом Tobject1 компилятор не даст.
Унаследовать оба эти типы от еще одного класса. И переместить в него нужные поля из Tobject1?
У меня в обще ощущение что это неадекватно делать поля TList в Объекте. Не знаю как загуглить правильную организацию Много объектов внутри другого объекта.

[Freeman]

Сообщение от Novikov

Но вот в чем загвоздка, мне необходимо чтобы каждый объект в списке знали все про Объект1.

Это больше похоже на TOwnedObject или TCollection/TCollectionItem.

[NumLock]

Код:

Tobject1=class
ListObjects:TList;
end;

TSecondObject=class
object1: Tobject1;
end;

а так да, подход, скорее всего, не верный.

[Novikov]

Сообщение от NumLock

Код:

Tobject1=class
ListObjects:TList;
end;

TSecondObject=class
object1: Tobject1;
end;

а так да, подход, скорее всего, не верный.

Так нельзя делать, я забыл упомянуть что в конструкторе Tobject1 создает объекты те самые и загоняет их в TList.
Так он не будет понимать класс TSecondObject.

[dr. F.I.N.]

Сообщение от Novikov

Так нельзя делать, я забыл упомянуть что в конструкторе Tobject1 создает объекты те самые и загоняет их в TList.
Так он не будет понимать класс TSecondObject.

Код:

TSecondObject=class;

Tobject1=class
ListObjects:TList;
end;
 
TSecondObject=class
object1: Tobject1;
end;

[Novikov]

Сообщение от dr. F.I.N.

Код:

TSecondObject=class;

Tobject1=class
ListObjects:TList;
end;
 
TSecondObject=class
object1: Tobject1;
end;

Это как так?) какой смысл тогда в обще что компилятор запрещает писать о том что не объявлено выше?