Delphi 7 TTreeView: Invalid level (n) for item "xxx"

[BLACK_RAIN]

Здравствуйте.
Делаю поиск файлов по диску с добавлением в TTreeView. То есть, создаю полный список файлов и папок в виде дерева, затем сохраняю список treeview.SaveToFile().
Проблема: при загрузке некоторых списков, возникает ошибка: Invalid level (9) for item "_Last (Return)_.qrf" и список перестаёт загружаться.
Что это значит?

[Stilet]

Насколько я помню, это значит, что у элемента в начале строки в файле стоит количество TAB символов, которое больше, чем у его родителя, стоящего выше.
Файл надо смотреть, так не скажешь.

[BLACK_RAIN]

Сообщение от Stilet

Файл надо смотреть, так не скажешь.

файл списка?

[Stilet]

Ну тот что сохраняется из древа.

[min@y™]

ой, не надо хранить древовидную иерархию как простой текст. в случае ахтунга концов не найдёшь. Имхо, вот так будет гораздо более, чем менее по-другому.

[BLACK_RAIN]

Сообщение от Stilet

Ну тот что сохраняется из древа.

Из-за чего вообще эта ошибка возникает? Ведь в TreeView при поиске всё норм добавляется.

Сообщение от min@y™

ой, не надо хранить древовидную иерархию как простой текст. в случае ахтунга концов не найдёшь. Имхо, вот так будет гораздо более, чем менее по-другому.

так типа надёжнее?

[min@y™]

так типа надёжнее?

да. и проще. и безболезненная обратная совместимость, плюшки в виде атрибутов и возможность просматривать/редактировать в визуальных редакторах (их тыщи!).

Пробуй.

[Stilet]

Из-за чего вообще эта ошибка возникает?

Я же сказал выше: может быть из-за нехватки в определенной строке символов табцляции. Насколько я помню, Тривьюха формирует в файле иерархию в стиле Питона - каждый узел в подузле определяется количеством знаков табуляции.
Т.е. у главного узла нет таба. У его детей - 1 таб, у его внуков уже два таба впереди строки. Вот возможно где-то какой-то табчик потерялся.
Так и визуально видна структура дерева. Но это было придумано не для того, чтоб действительно хранить данные )
Это скорее отладочная фичка Борланда, чем перспективная.

А вот насчет XML я с Минаем согласен. Так реально надежнее.

[BLACK_RAIN]

Сообщение от min@y™

Пробуй.

А чё он на пробелы и двоеточия в строчках ругается?

Procedure TTreeToXML.WriteNode(N: TTreeNode; ParentXN: IXMLNode);
var
  CurrNode: IXMLNode;
  Child: TTreeNode;
begin
  CurrNode := ParentXN.AddChild(N.Text);
  CurrNode.Attributes['NodeLevel'] := N.Level; <<здесь дебаггер встаёт
  CurrNode.Attributes['Index'] := N.Index;
  Child := N.getFirstChild;
  while Assigned(Child) do
  begin
    WriteNode(Child, CurrNode);
    Child := Child.getNextSibling;
  end;
end;

[Stilet]

Боги мои, а зачем так? XML это текстовый файл, вот в виде текста его и формируй.

Procedure TTreeToXML.WriteNode(N: TTreeNode; st:TStringList);
var
  Child: TTreeNode;i:integer;
begin
 st.Append('<node name="'+N.Caption'">)
  for i:=0 to n.Count-1 do 
   WriteNode(n[i],st);
 st.Append('</node>)
end;

Все. А потом st сохраняй.