ХЛАМ У ПАМЯТИ!!!

[J.Bond]

работая с бинарными деревями видимо не верно написал функцыю
удаления с памяти дерева: теперь когда нажымаю на кнопку нарисовать дерево, мне пишет не хватает памяти для выполнения операцыи...
посаветуйте что делать???


вот кстате ета процедура:

procedure DestroyTree(p: PKNot);


begin
 if p^.left<>nil then
   DestroyTree(p^.left);

  if p^.wright<>nil then
   DestroyTree(p^.wright);

  Dispose(p);
end;

[casekey]

у родителя ссылочку на удаляемый элемент разве не надо занулить? а то ведь в неизвестность будет указывать

[Stilet]

Конечно неправильно. Вернее ненадежно.
Удаление дерева нужно вершить с корня и рекурсией до самой последней ее ветки.
Например у тебя есть TopBranch - корень
Тогда

procedure DestroyTree(pn:PKNot=nil);
var p: PKNot
begin
 if p=nil then p:=TopBranch;
 while p^.Next<>nil do begin
   if p^.FirstChild<>nil then   DestroyTree(p^.FirstChild);
   p:=p^.Next;
   Dispose(p^.Prev);
 end;
end;

Где
p^.Next - Следующая ветка такого уровня
p^.FirstChild - Первая подветка
p^.Prev - Предидущая ветка такого уровня

Вроде ничего не забыл