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;

“十万个为什么”电脑学习网原创文档

转载请注明出处：http://www.why100000.com