реализация АВЛ дерева на Delphi

← →
alson (2006-02-01 17:27) [0]

Нужна реализация АВЛ дерева на Delphi. В сети че-то найти не могу нормальной реализации, т.е. чтобы было "красиво" сделано на классах. Сделано все через процедурное программирование или на С... Очень срочно нуна... Мот кто подскажет, где взять мона?

← →
Игорь Шевченко © (2006-02-01 17:45) [1]

http://home.earthlink.net/~akonshin/ поищи

← →
alson (2006-02-01 17:48) [2]

СПАСИБО!!!! То что нужно!!!

← →
Alex Konshin © (2006-02-02 13:36) [3]

Я бы не сказал, что у меня красиво, но то, что быстро - однозначно.

← →
msguns © (2006-02-02 13:57) [4]

Леш, а можно мне ArrayGrid взять посмотреть ?

← →
Alex Konshin © (2006-02-02 14:02) [5]

Хм. Ты меня озадачил... А что, какие-то проблемы со "взять"?

← →
sally (2006-02-02 14:38) [6]

>Alex Konshin
Спасибо за дерево.
Предложение - сделать в Node свойство Parent.
Очень спосло бы во многих случаях.

Это неверно идеалогически. Тебе не нужен parent. Ты не должен лезьть в дерево грязными руками, считай, что это всего лишь способ организации индекса, что так и есть на самом деле. Многие заблуждаются считая, что AVL - обычное дерево. Оно очень специфичное и менять в нем что-то просто так нельзя. Тебе дано property Tree, вот им и пользуйся.
Я подозреваю, зачем оно тебе нужно. Ты хочешь задешево достать соседей. Так в обще случае через родителя ты узнаешь только одного из соседей, причем без не сразу ясно какого из них. А второго все равно искать нужно.
Можешь посмотреть другой юнит Arrays с моего сайта. Там тоже используется AVL-tree, но зато можно обращаться к элементам по логическому индексу, т.е. соседи достаются дешево и просто.

реализация АВЛ дерева на Delphi Найти похожие ветки