Delphi 中遍历 XML 文档的完整示例

  XML 文档的节点是标准的树形结构，可以通过递归或者回溯算法来遍历所有的节点。
    本例使用递归算法为例，制作了2个遍历 XML 文档的例子。
    第一个例子，给出一个 XML 节点，遍历所有子节点-不包括起始节点。
    第二个例子，给出一个 XML 节点，遍历所给的节点及其下属的所有子节点。
    以上2个示例均列举出了 XML 文档的标签属性和文本值，是比较完整的示例代码。

<?xml version=”1.0″ encoding=”gb2312″?> 
<root website=”http://www.why100000.com“> 
  <channel id=”1″ tagname=”channel”> 
    <topic id=”1-1″ tagname=”topic”>Windows频道</topic> 
    <Url id=”1-2″ tagname=”Url”>www.why100000.com/_windows</Url> 
  </channel> 
  <channel id=”2″ tagname=”channel”> 
    <topic id=”2-1″ tagname=”topic”>代码实验室</topic> 
    <subWeb id=”2-2″ tagname=”subWeb”>http://lab.why100000.com</subWeb> 
  </channel> 
  <BBS id=”03″ tagname=”BBS”> 
    <topic id=”03-1″ tagname=”topic”>电脑学习社区</topic> 
    <subWeb id=”03-2″ tagname=”subWeb”>http://bbs.why100000.com</subWeb> 
    <subBBS id=”03-3″> 
      <subBBStopic id=”03-3-1″>菜鸟学院</subBBStopic> 
      <subBBStopic id=”03-3-2″>问吧</subBBStopic> 
      <subBBStopic id=”03-3-3″>学吧</subBBStopic> 
      <subBBStopic id=”03-3-4″>回吧</subBBStopic> 
      <subBBStopic id=”03-3-5″></subBBStopic> 
      <subBBStopic></subBBStopic> 
    </subBBS> 
  </BBS> 
  <AnatherTag note=”testTag-1″/> 
  <AnatherTag/> 
</root> 
{———————————————————————-}  
function TForm1.GetXmlTree1(nNode: IXMLNode): string;  
var  
  i, j: integer;  
begin  
  for i:=0 to nNode.ChildNodes.Count-1 do  
  begin  
    s := s + ‘<’ + nNode.ChildNodes.Nodes[i].NodeName;  
    for j:=0 to nNode.ChildNodes[i].AttributeNodes.Count-1 do  
    begin  
      s := s + ‘ ‘+ nNode.ChildNodes[i].AttributeNodes[j].NodeName;  
      s := s + ‘=”‘+ nNode.ChildNodes[i].AttributeNodes[j].NodeValue +’”‘;  
    end;  
    s := s + ‘>’;  
    if nNode.ChildNodes.Nodes[i].IsTextElement then  
      s := s + nNode.ChildNodes.Nodes[i].Text;  
    if nNode.HasChildNodes and not nNode.ChildNodes.Nodes[i].IsTextElement then  
    begin  
      s := s +  #13 + #10;  
      GetXmlTree1(nNode.ChildNodes.Nodes[i]);  
    end;  
    s := s + ‘</’+ nNode.ChildNodes.Nodes[i].NodeName +’>’ + #13 + #10;  
  end;  
  result := s;  
end;  
{———————————————————————-}  
function TForm1.GetXmlTree2(nNode: IXMLNode): string;  
var  
  i, j: integer;  
begin  
  s := s + ‘<’ + nNode.NodeName;  
  for j:=0 to nNode.AttributeNodes.Count-1 do  
  begin  
    s := s + ‘ ‘+ nNode.AttributeNodes[j].NodeName;  
    s := s + ‘=”‘+ nNode.AttributeNodes[j].NodeValue +’”‘;  
  end;  
  s := s + ‘>’;  
  if nNode.IsTextElement then  
    s := s + nNode.Text  
  else  
  begin  
    s := s + #13 + #10;  
    if nNode.HasChildNodes then  
      for i:=0 to nNode.ChildNodes.Count-1 do  
      begin  
        GetXmlTree2(nNode.ChildNodes.Nodes[i]);  
      end;  
  end;  
  s := s + ‘</’ + nNode.NodeName + ‘>’+ #13 + #10;  
  result := s;  
end;  
{———————————————————————-}  
调用：  
 
procedure TForm1.Button4Click(Sender: TObject);  
var  
  oXml: TXMLDocument;  
begin  
  oXml := TXMLDocument.Create(self);  
  oXml.FileName := ‘_Treeview.xml’;  
  oXml.Active:=true;  
  s :=”;  
  s := GetXmlTree1(oXml.ChildNodes.FindNode(’root’));  
  Memo1.Lines.Add(s);  
  oXml.Free;  
end;  
 
procedure TForm1.Button5Click(Sender: TObject);  
var  
  oXml: TXMLDocument;  
begin  
  oXml := TXMLDocument.Create(self);  
  oXml.FileName := ‘_Treeview.xml’;  
  oXml.Active:=true;  
  s :=”;  
  s := GetXmlTree2(oXml.ChildNodes.FindNode(’root’));  
  Memo1.Lines.Add(s);  
  oXml.Free;  
end;