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

[Alegun]

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

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

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