XML文件递归算法

Question

有没有哪位大侠，写一个XML文件的递归浏览算法，XML文件的内容不知道的情况下。

Answer 1

http://bbs.2ccc.com/topic.asp?topicid=241498

Answer 2

是要自己写一个xml操作类吗？参考 nativexml 控件

Answer 3

procedure TForm1.CreateTree(inXmlNode: IXMLDomNode; inTreeNode: TTreeNode; inTreeView: TTreeView);
var
  i:integer;
  xNode:IXMLDomNode;
  tNode:TTreeNode;
begin
  if inXmlNode.HasChildNodes then
    begin
    for i:=0 to inXmlNode.ChildNodes.length-1 do
      begin
      xNode:=inXmlNode.ChildNodes[i];
      tNode:=inTreeView.Items.AddChild(inTreeNode,'');
      tNode.Text:=xNode.attributes.getNamedItem('name').NodeValue;
      if xNode.HasChildNodes then CreateTree(xNode,tNode,inTreeView);
      end;
    end;
end;