Вниз
Скачать: CL | DM;

реализация АВЛ дерева на 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.
Очень спосло бы во многих случаях.


← →
Alex Konshin ©   (2006-02-03 13:29) [7]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.032 c
1-1138730854
md
2006-01-31 21:07
2006.03.05
Canvas


1-1138637444
lsp
2006-01-30 19:10
2006.03.05
отображение даты, в ZeosDBO 6.5.0 под Делфи для PostgresSQL


15-1139761406
тихий вовочка
2006-02-12 19:23
2006.03.05
Ищу совет по поздравлению


1-1138621301
Ega23
2006-01-30 14:41
2006.03.05
Создание ShortCut в run-time


1-1138959745
-=Fes=-
2006-02-03 12:42
2006.03.05
FileExists в Delphi 2005




   Наверх