Пишу курсовик по Б-Дереву...
Осталось сделать только удаление дерева полность...
Но очень не хочется рекурсивно лезть к каждому листу...
Помнится в паскале перед работой с кучей писал Mark(p), а после работы Release(p) где p-pointer.
т.е. запоминаю текущее значение HeapPtr, а после работы стираю всё начиная с p до текущего значения HeapPtr...
Есть ли аналог в Delphi?

И какие последствия мне грозят после этого при работе с Delphi???

Работа с деревом делается только рекурсивно.
Как сделать нерекурсивно:
Наследуем TList, переписываем деструктор.
Деструктор должен освободить все узлы от 0 до TList.Count-1.

Работаем: При добавлении каждого листа, добавляем каждый поинтер в TList.
TList.Add(p);
В онце работы просто уничтожаем TList - деструктор все подчистит.
Минус - имеем параллельную структуру = 4 байта на каждый лист.
Добавлено @ 22:05

Цитата(Snowy @ 7.12.2005, 22:03)

Работа с деревом делается только рекурсивно.

Хотя, это замечание не совсем верно - еще можно вложениями циклов, если нам известен предельный уровень.

А с выводом дерева никогда не работал???
Я взял алгоритм из книжки Кнута "Алгоритмы и структуры данных". Грубо говоря это тот же текстовый режим, только пишу по форме и на канве сразу...

Если делать с прокруткой и показом всех узлов и листов будет очень сложно?!
Может кто-то знает какой-то альтернативный вариант?

А чем не устраивает стандартный TTreeView?

TTreeView???
есть и такой??
Не знаю чем не устраивает - в глаза его не видел...

Предмет называется "Алгоритмы и структуры данных"...
Если в коде что-то придумано не тобой - это плохо))) (с)...
Причем лекции и описание алгоритмов даются на псевдокоде... или на Модуле2

Цитата(SLaM @ 8.12.2005, 15:49)

Если в коде что-то придумано не тобой - это плохо))) (с)...

Ну, если TTreeView это плохо, тогда нужно писать и без Form и Canvas.
А можно и дальше пойти - обойтись без if, for и переменных.
Кодить на асме, юзая регистры и динамическую память...
И операционка тоже не нужна - результат в видеопамять писать напрямую...