n-арное двусвязное дерево. Добавление, поиск, удаление., Помогите найти ошибку в удалении. Опции

[kramolnic]

Помогите, пожалуйста, найти ошибку в моей программе.
Сделал добавление и рекурсивный вывод, однако удаление не работает как надо. Если создать дерево, а потом скомандовать удалить элемент, то стираются все его дочерние элементы (освобождается выделенная под них память), однако при распечатке он видит удаленные элементы!
Немного о программе. Дерево реализовано так, что в каждом узле (персона, TPerson) находится информация о человеке (PersonData), ссылка на его родителя (Parent: PPerson) и список (TList) ссылок на дочерние элементы (каждый из которых также TPerson). Добавление производится по номеру элемента в индексном списке (этот список хранится в структуре TTree под именем ItemList). Сначала программа выводит дерево. Для этого сначала очищается ItemList, затем в этот список процедурой IndexTree, производящей рекурсивный обход дерева, упорядоченно заносятся элементы дерева (сверху вниз, как на экране), после чего распечатывается уже список, в котором находится структура дерева. Список ItemList был добавлен для осуществления добавления дочерних элементов по номеру родителя, а также для поиска. Кстати, пытался сначала сделать удаление без рекурсии, используя этот ItemList - результат: Stack Overflow при попытке вывода (вылетает при обходе дерева рекурсией). Видимо, где-то не верно уничтожаются указатели.
В данном файле удаление сделано рекурсивно (процедура Kill), но она работает как я уже описал. Помогите разобраться наконец, а то я уже дня четыре пытаюсь понять, что тут не верно тремя способами удаление делал - два стэк переполняют ПРИ ВЫВОДЕ, а третий работает криво. Кстати, после удаления элементы как надо не добавляются...

Сообщение отредактировано: kramolnic - 15.05.2007 22:08

[volvo]

Понимаешь в чем дело... Тот компилятор, которым пользуюсь я завершает выполнение программы (Segmentation Fault) еще в строке

k:= ABS(CurEl^.Children^.Level);

, ибо CurEl указывает в никуда... При таком раскладе проблематично проверить, как работает удаление дерева...

[kramolnic]

Понимаешь в чем дело... Тот компилятор, которым пользуюсь я завершает выполнение программы (Segmentation Fault) еще в строке

k:= ABS(CurEl^.Children^.Level);

, ибо CurEl указывает в никуда... При таком раскладе проблематично проверить, как работает удаление дерева...

Прошу прощения,что не вставил проверку if CurEl <> nil then... мой компилер нормально это переживает, я внимания и не обратил...