Сохранение дерева

[Лелик_1044]

Помогите с алгоритом сохранения
Есть дерево содержащее Н вложенностей и М 0 уровней
Надо сохранить
----------------------------
| Parent_ID | Child_ID |
----------------------------

Где каждый child_id будет ссылаться на своего paent_id

[Duncon]

В цикл для каждого уровня и подуровня и пишешь построчно в файл, потом так же читаешь... Ну это самое простое...

[Лелик_1044]

Duncon,
Мне тож так сперва казалось, сейчас сижу думаю

[LAngel]

обычная рекурсия, ещё со школы

Код: Выделить всё

Procedure SaveNode(Node: TNodeClass);
var
  i: Integer;
begin
  SaveToFile(Node.Id, Node.Parent.Id);
  for i := 0 to Node.Childs.Count-1 do SaveNode(Node.Child[i]);
end;