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.