сохранение структуры TreeView

[SergGhost]

Товарищи, подскажите пожалуйста.
На форме есть компонент TreeView. Пользователь добавляет или удаляет какие то узлы. Мне необходимо сохранить изменения произошедшие в дереве. Как это сделать?

[Stilet]

Насколько я знаю есть у ее ITEMS метод SaveToFile.
Попробуй его.

[mihali4]

Если дерево простенькое, то воспользуйтесь мудрым советом Стилета.
А вот если там мегабайты инфы, лучше бы использовать БД.
Опять же и поиск организовать можно, и прочие полезные прибамбасы...

[Alter]

Можете на основе этих процедур сделать, поменяете, добавите чего-то своё в них:
1) Сохранение дерева(так же удобно сохранять содержимое из Data узла):

procedure Tree2XML(tree: TTreeView);
var
  tn : TTreeNode;
  XMLDoc : TXMLDocument;
  iNode : IXMLNode;

  procedure ProcessTreeItem(
        tn    : TTreeNode; 
        iNode : IXMLNode);
  var
    cNode : IXMLNode;
  begin
    if (tn = nil) then Exit;
    cNode := iNode.AddChild('item');
    cNode.Attributes['text'] := tn.Text;
    cNode.Attributes['imageIndex'] := tn.ImageIndex;
    cNode.Attributes['stateIndex'] := tn.StateIndex;

    //child nodes
    tn := tn.getFirstChild;
    while tn <> nil do
    begin
      ProcessTreeItem(tn, cNode);
      tn := tn.getNextSibling;
    end;
  end; (*ProcessTreeItem*)
begin
  XMLDoc := TXMLDocument.Create(nil);
  XMLDoc.Active := True;
  iNode := XMLDoc.AddChild('tree2xml');
  iNode.Attributes['app'] := 'My Tree';

  tn := tree.TopItem;
  while tn <> nil do
  begin
    ProcessTreeItem (tn, iNode);

    tn := tn.getNextSibling;
  end;

  XMLDoc.SaveToFile(ChangeFileExt(ParamStr(0),'.XML'));

  XMLDoc := nil;
end; (* Tree2XML *)

2) Загрузка, почти то же самое:

procedure XML2Tree(
          tree   : TTreeView; 
          XMLDoc : TXMLDocument);
var
  iNode : IXMLNode;

  procedure ProcessNode(
        Node : IXMLNode; 
        tn   : TTreeNode);
  var
    cNode : IXMLNode;
  begin
    if Node = nil then Exit;
    with Node do
    begin
      tn := tree.Items.AddChild(tn, Attributes['text']);
      tn.ImageIndex := Integer(Attributes['imageIndex']);
      tn.StateIndex := Integer(Attributes['stateIndex']);
    end;


    cNode := Node.ChildNodes.First;
    while cNode <> nil do
    begin
      ProcessNode(cNode, tn);
      cNode := cNode.NextSibling;
    end;
  end; (*ProcessNode*)
begin
  tree.Items.Clear;
  XMLDoc.FileName := ChangeFileExt(ParamStr(0),'.XML');
  XMLDoc.Active := True;

  iNode := XMLDoc.DocumentElement.ChildNodes.First;

  while iNode <> nil do
  begin
    ProcessNode(iNode,nil);
    iNode := iNode.NextSibling;
  end;

  XMLDoc.Active := False;
end;

[SergGhost]

Я первым делом это и проверил, но оказалось, что метод SaveToFile есть у TreeView, а не у его Index, этого не знал))). Но как я понял, этот метод не совсем надежен.
Пытался воспользоваться процедурами Alter'а. С сохранением вроде все в норме, а вот с загрузкой, что то не получается. При вызове процедуры указываю имя treeview и имя файла:
XML2Tree(treeview1,XMLDoc); Delphi даже не компилирует. пишит следующее: '.'expected bot ')' found
Если ставить точку, то можно установить только TXMLDocument, но Delphi опять эт не нравится. Почему?

[Alter]

Почему ошибка? Поподробнее можно, где ошибка, и код куда засунули(если возможно).
Это проверенные процедуры, ошибок не должно вылазить.
Вот Demo, увидите, что работают без ошибок:

[SergGhost]

Спасибо огромное, исходник очень помог