Treeview mit XML füllen

[gmc616]

Hallo,

Leider weiß ich nicht woher man das IXMLDOMNodeList-Objekt bekommt, kann also auch deinen Source bei mir nicht ausprobieren.

Aber mal so aus der Hüfte geschossen ...

Delphi-Quellcode:

procedure TForm1.UpdateTree(Nodes: IXMLDOMNodeList; ParentNode : TTreeNode);
var
  i: Integer;
  aTree, NewParent : TTreeNode;
begin
  for i := 0 to Nodes.length - 1 do
  begin
    aTree := DialogTree.Items.AddChild(ParentNode , Nodes.item[i].nodeValue);
    if Nodes.item[i].childNodes.length > 0 then
    begin
      NewParent := aTree;
      UpdateTree(Nodes.item[i].childNodes, NewParent);
    end;
  end;
end;

Ohne Garantie! Wie gesagt, ich kenne IXMLDOMNodeList nicht.