иерархическая структура объектов, Delphi 7 Опции

[18192123]

Здравствуйте!
Есть тема "Иерархия структуры таблицы Менделеева", в пределах которой нужно построить иерархию объектов, состоящей как минимум из 3-х уровней.
Для демонстрации работы построенной иерархии классов, создаётся приложение, позволяющее:
создавать, удалять объекты, изменять характеристики объектов, визуализировать объекты, манипулировать на форме объектами, сохранять/считывать текущее состояние объектов в формате XML.

Есть некоторые задумки насчёт иерархии (изображение)...Может кто-нибудь подскажет другой подход?
Ну а прежде всего - трудности с визуализацией и манипулированием объектами...Может быть у кого-нибудь есть идеи, как для начала идейно подойти к этим вопросам? что можно придумать? Подскажите пожалуйста..!

[volvo]

как учесть это??

Сохранять в XML вместе с данными еще и некоторый идентификатор, определяющий, объект какого именно типа надо будет создавать при восстановлении дерева... Скажем, при id="1", создаем TRange, если id="2", то TElement, и так далее...

Я бы сделал виртуальную функцию GetID: string, которая будет возвращать идентификатор для каждого типа объекта, тогда при записи в этот самый атрибут ID достаточно будет вызвать:

cNode.Attributes['ID'] := TBPeriod(tn.Data).GetID;

[18192123]

Сохранять в XML вместе с данными еще и некоторый идентификатор...

//сохраняем...
    if tn.Data <> nil then begin
      cNode.Attributes['Feature'] := TPeriod(tn.Data).Feature;
      cNode.Attributes['Count'] := TPeriod(tn.Data).Count;
      cNode.Attributes['Id']:=1;
    end
    else cNode.Attributes['sData'] := '';

Например, так?
А для записи в XML наследников должен быть аналогичный код?