[Uniq!]

Друзья, появилась задачка: построить древо
TObject (проходим ступенчатую иерархию)

Пользователь вводит глубину проникновения по дереву, а ему на это формируется древо.

Куда копать? Я ума не приложу... и допустим даже для глубины в 3объекта... это же сколько будет элементов в древе????

[M.A.D.M.A.N.]

Код:

type
  TNode = class(TObject)
    SubNodes: TObjectList
    Data: Pointer;
  end;

[Uniq!]

Это я сразу написал
Я не могу понять как получить список дочерних элементов от TObject? (которые являются родными для Delphi.)

[M.A.D.M.A.N.]

Код:

while true do
  node.SubNodes.Add(TNode.Create());

[Uniq!]

M.A.D.M.A.N., всё не настолько плохо. Заполнять списки я научился классе в 10ом.

У меня другая задача:
Как узнать программно, что рождено (по дефолту) от TObject ?

Например мы знаем, что TPersistent это "дочка" TObject
Наверняка что-то ещё, являются "дочерью" TObject.

Так вот, как вернуть этот дочерний список от TObject, а потом как вернуть дочерний список допустим от TPersistent?

[NumLock]

Код:

class function ClassParent: TClass;

[M.A.D.M.A.N.]

Понял, тебе диаграмму классов надо.

Вон, как написал NumLock.

[Uniq!]

ClassParent это прямая связь, а мне нужно обратную

Т.е. зная самого младшего из детей, можно найти родителей.
А я знаю родителей И надо найти "потенциальных" детей.

форум по программированию, чё пишу?... ужас

В этом вся сложность. В интерфейс класса, есть смысл лезть?
Вот допустим как найти все элементы, которые являются детьми TButtonControl? (т.е. все возможные кнопки, включая самую обыкновенную)

[Freeman]

Сообщение от Uniq!

Т.е. зная самого младшего из детей, можно найти родителей.
А я знаю родителей И надо найти "потенциальных" детей.

Это никак не узнать, поскольку в самом Delphi такой задачи нет. Если не путаю, подобная инфа даже на уровне RTTI нигде не хранится. Разве что где-то в OTA, точнее, в реализации OTA в самом Delphi, обрабатывающей RTTI при загрузке пакетов особым образом. А в обычной программе это вообще никак не узнать.

[NumLock]

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

[icWasya]

Нужно сделать примерно следующее.
1)Написать процедуру с параметром TObject, которая выясняет всех родителей этого класса и строит ветку дерева.
2)Вызвать эту процедуру со всеми классами, иерархия которых Вас интересует.

[Alegun]

Сообщение от Uniq!

...построить древо
TObject (проходим ступенчатую иерархию)...

Строим дерево классов