Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Иерархическая структура 


vuk   (2001-12-28 15:21) [2]

В принципе - ничего особо сложного. Каждый узел дерева (Node) можно представить как что-то типа того:

TNode = class
//это, я думаю, понятно
property Parent : TNode ... ;
property Children[index : integer]:TNode ...;
property ChildrenCount : integer ...;
property Data : .... ;

//это не обязательно, но иногда удобнее для обхода дерева,
//да и структуру дерева можно строить именно через эти
//свойства
//FirstChild - первый "ребенок" узла
property FirstChild : TNode...;
//NextSibling - следующий "родной брат"
property NextSibling : TNode...;

end;

все нужные операции (добавление/удаление элементов), я думаю, очевидны.

Если объекты по каким-то причинам не устраивают, то можно все сделать на record"ах.
Для удобства все элементы дерева можно хранить в линейном массиве - это иногда упрощает обход элементов.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.012 c
1-52526           Baz                   2001-12-26 10:21  2002.01.17  
Господи, да что ж делается-то?!


7-52676           REL                   2001-10-02 19:43  2002.01.17  
Com порт


3-52480           grab                  2001-12-14 20:05  2002.01.17  
как закачать в stringgrid данные из Excel


1-52541           Rust_br               2001-12-26 22:07  2002.01.17  
Как уменьшить размер exe шника?


14-52651          atmospheric           2001-11-22 18:07  2002.01.17  
Cитуация морального выбора