Delphi 中遍历 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;