Загрузка из XML в TreeView

[Человек_Борща]

Доброго!

Написал сохранение TreeView в XML. А вот с загрузкой что-то туплю...

Сохранение:

procedure TForm11.SaveTreeItems;
var
  xml: TNativeXml;
  xRoot: TXMLNode;
  Node: TTreeNode;
  i: Integer;

  procedure ProcessTreeItem(aNode: TTreeNode; aRoot: TXmlNode);
  var
    cNode: TXmlNode;
    Data: pNodeData;
    i: Integer;
  begin
    if Assigned(aNode.Data) then
    begin
      Data := aNode.Data;
      cNode := aRoot.NodeNew(Data.Name);
      cNode.WriteAttributeString('Name', Data.Name);
      cNode.WriteAttributeString('File', Data.SourceFile);
    end
    else
      cNode := aRoot.NodeNew(aNode.Text);

    for i := 0 to aNode.Count - 1 do
      ProcessTreeItem(aNode.Item[i], cNode);
  end;

begin
  xml := TNativeXml.CreateName('Book');
  try
    with xml.Root do
    begin
      xRoot := NodeNew('Pages');
    end;
    Node := TreeView1.TopItem;
    ProcessTreeItem(Node, xRoot);
    xml.XmlFormat := xfReadable;
    xml.Charset := 'ansi';
    xml.SaveToFile(ExtractFilePath(ParamStr(0)) + 'TreeView.xml');
  finally
    FreeAndNil(xml);
  end;
end;

Как её правильно перевернуть для чтения?

Сейчас есть это:

var
  xml: TNativeXml;
  xRoot: TXMLNode;
  Node: TTreeNode;
  i: Integer;

  procedure FillTree(aXmlNode: TXmlNode; aTreeNode: TTreeNode);
  var
    pData: pNodeData;
    tNode: TTreeNode;
    i: Integer;
  begin
    New(pData);
    pData.Name := aXmlNode.ReadAttributeString('Name');
    pData.SourceFile := aXmlNode.ReadAttributeString('File');
    tNode := TreeView1.Items.AddChildObject(aTreeNode, pData.Name, pData);

    for i := 0 to aXmlNode.NodeCount - 1 do
      FillTree(aXmlNode.Nodes[i], tNode);
  end;

begin
  if not FileExists(ExtractFilePath(ParamStr(0)) + 'TreeView.xml') then
    Exit;
  xml := TNativeXml.CreateName('Book');
  try
    xml.XmlFormat := xfReadable;
    xml.Charset := 'ansi';
    xml.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'TreeView.xml');
    with xml.Root do
    begin
      xRoot := NodeByName('Pages').FirstNodeByType(xeElement);
    end;
    FillTree(xRoot, TreeView1.TopItem);

  finally
    FreeAndNil(xml);
  end;
end;

Загружает почти правильно, но в дереве появляются пустые ветки. Как правильно реализовать-то?

[Человек_Борща]

проблему решил прокрутив страницу вниз.

[XerSon]

Может поможет пример в аттаче.

[XerSon]

Человек_Борща

А как организовать поиск определенного значения?

[Человек_Борща]

Я инкрементным поиском TreeView пользовался.

[XerSon]

Сообщение от Человек_Борща

Я инкрементным поиском TreeView пользовался.

Можно пример?

[XerSon]

Попробовал так

var
  i: integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    if Pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(TreeView1.Items[i].Text)) <> 0 then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      TreeView1.SetFocus;
      Edit1.Text := '';
      break;
    end;

Ищет по именам нодов, а не по значениям.

[Аватар]

Ищет по именам нодов, а не по значениям.

Нет имени нода. Одним и тем же текстом можно заполнить Text всех 1000 узлов. И что, это имя? Это скорее и есть значение нода. Второй вариант поиска - по значению свойства Data или по параметрам объектов, указатели на которые туда помещены

[Человек_Борща]

Incremental Search реализовал в VirtualTrees им и пользуюсь.