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

[kramolnic]

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

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

[volvo]

Сначала программа выводит дерево.

А ничего, что она это делает некорректно?

Первый же PrintList, чему равно CurEl после присваивания

CurEl:= List.Head;

? Переход по нулевому указателю...

[kramolnic]

А ничего, что она это делает некорректно?

Первый же PrintList, чему равно CurEl после присваивания

CurEl:= List.Head;

? Переход по нулевому указателю...

так... а что тут собсно некорректного? PrintList:

Код

procedure PrintList(var List: TList);
var
  CurEl: PListItem;
  i, k, number: integer;
begin
WriteLn('0. Root');
number:= 1;
CurEl:= List.Head;
k:= ABS(CurEl^.Children^.Level);

While CurEl <> nil do
  begin
    Write(' ', number,'.');
      GotoXY(CurEl^.Children^.Level + k + 5, WhereY);
      WriteLn(CurEl^.Children^.PersonData.Name);
    CurEl:= CurEl^.Next;
    inc(number);
  end;
end;

Если лист пустой, то и Head = nil, согласен. Просто цикл While не будет выполнен. А если лист не пустой, то и Head указывает на какой-то элемент. Или имеется в виду k:= ABS(CurEl^.Children^.Level); ? Ну да, это немного некорректно... или это настолько критично? Я чего-то не понимаю? вроде бы вывод ДО удаления работает как надо. Не работает удаление, или я не прав? кстати,в процедуре удаления еще один шаг не сделан - надо удалить ссылку на удаляемый элемент из списка его родителя. Но это все равно не должно вроде повлиять на результат.
Поправьте, если я в чем-то заблуждаюсь...

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