[lmikle]

Думаю, что смысла нет. Скорее всего, дерево обеспечивает только структуру (хотя я не знаю, какая информация "сидит" в заголовке самих нод, если просто объединение тех же данных, что и в прикрепленной записи, то смысла сохранения дерева нет вообще). В этом случае достаточно просто писать все ноды в отдельный файл (поток), а при чтении восстанавливать структуту по файлу.

ЗЫ. Писать код просто влом, там все достаточно просто. Сначала пишется кол-во корневых узлов, потом сами узлы и, рекурсивно, все их подузлы. При чтении - в обратном порядке. Вот псевдокод:

Код:

procedure SaveTree(Stream : TStream);
var
  I : Integer;
begin
  WriteToStream(Stream,RootTreeCount);
  For I := 0 To RootTreeCount-1 Do
    SaveNode(Stream,Nodes[i]);
end;

procedure SaveNode(Stream : TStream; Node : TTreeNode);
var
  I : Integer;
begin
  WriteToStream(Stream,Node.Data);
  WriteToStream(Stream,Node.Items.Count);
  For I := 0 To Node.Items.Count-1 Do
    SaveNode(Stream,Node.Items[i]);
end;

Чтение, соотв. наоборот, с созданием нужных узлов.