[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;

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

[dr. F.I.N.]

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

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

TSecondObject=class; - указывает на то, что в данном модуле описан данный класс. Его реализация в данном модуле обязательна, но может быть в любом месте ниже, после реализации и объявления других классов.
А дальше уже и так все понятно.

[poli-smen]

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

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

Потому что, то что не объявлено компилятор не знает как компилировать и вообще не знает возможно ли будет скомпилировать. А это называется предварительное (опережающее) объявление и после такого обявления компилятор уже будет знать что переменные этого типа будут занимать 4 байта (для 32-битного приложения).
Но в единственном случае компилятор всё-же разрешает в объявлении ссылаться на ещё не объявленный тип - при объявлении указателя на этот тип:

Код:

type
  PMyType = ^TMyType;
  TMyType = Integer;

Это возможно, так как компилятор знает что все указатели имеют размер 4 байта (для 32-битного приложения).Только это должно быть в одной секции type, впрочем как и в случае предварительного объявления.

[Novikov]

Благодарю за просвещение, а не подскажите решений на счет
"Объект содержит список объектов"
TList нормальное решение?

[dr. F.I.N.]

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

Благодарю за просвещение, а не подскажите решений на счет
"Объект содержит список объектов"
TList нормальное решение?

TObjectList