Delphi 中的 XMLDocument 类详解(14) - 遍历 XML 文件-白红宇

unit
 Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;
type
 TForm1 
=
 
class
(TForm)
 XMLDocument1: TXMLDocument;
 Button1: TButton;
 Button2: TButton;
procedure
 Button1Click(Sender: TObject);
procedure
 Button2Click(Sender: TObject);
end
;
var
 Form1: TForm1;
implementation
{ 
$R *.dfm
}
//
读取 xml 的函数
{ 
 功能1: 传入一个节点参数, 返回节点及其包含的所有内容;
 功能2: 排除了空节点.
}
function
 ReadXml(node: IXMLNode): 
string
;
var
 nodeList,attrList: IXMLNodeList;
 str,strName,strValue: 
string
;
 i: Integer;
begin
 Result :
=
 
''
;
if
 
not
 node.HasChildNodes 
then
 Exit;
 attrList :
=
 node.AttributeNodes; 
{ 
根节点的属性列表
}
 nodeList :
=
 node.ChildNodes; 
{ 
根节点下的子节点列表
}
 str :
=
 
'
<
'
 
+
 node.NodeName;
{ 
先读取属性
}
for
 i :
=
 
0
 
to
 attrList.Count 
-
 
1
 
do
begin
 strName :
=
 attrList[i].NodeName;
 strValue :
=
 attrList[i].NodeValue;
 str :
=
 str 
+
 
'
 
'
 
+
 strName 
+
 
'
=
'
 
+
 AnsiQuotedStr(strValue, 
'
"
'
);
end
;
 str :
=
 str 
+
 
'
>
'
 
+
 sLineBreak; 
{ 
sLineBreak 是常量, 相当于 #13#10
}
{ 
读取子节点
}
for
 i :
=
 
0
 
to
 nodeList.Count 
-
 
1
 
do
begin
 strName :
=
 nodeList[i].NodeName;
if
 nodeList[i].IsTextElement 
then
begin
 strValue :
=
 nodeList[i].NodeValue;
 str :
=
 str 
+
 
'
<
'
 
+
 strName 
+
 
'
>
'
 
+
 strValue 
+
 
'
</
'
 
+
 strName 
+
 
'
>
'
 
+
 sLineBreak;
end
 
else
 
if
 nodeList[i].HasChildNodes 
then
begin
 str :
=
 str 
+
 ReadXml(nodeList[i]); 
{ 
这是最关键的递归调用
}
 str :
=
 str 
+
 
'
</
'
 
+
 strName 
+
 
'
>
'
 
+
 sLineBreak; 
{ 
封口
}
end
;
end
;
 str :
=
 str 
+
 
'
</
'
 
+
 node.NodeName 
+
 
'
>
'
; 
{ 
封口
}
 Result :
=
 str;
end
;
//
调用测试(
1
):
procedure
 TForm1.Button1Click(Sender: TObject);
var
 str,s1,s2: 
string
;
begin
 XMLDocument1.LoadFromFile(
'
c:\temp\test.xml
'
);
{ 
必须用万一提供的 xml 测试文件, 才能有相同的返回值
}
{ 
读取文件头
}
 s1 :
=
 AnsiQuotedStr(XMLDocument1.Version, 
'
"
'
); 
{ 
读出版本, 并添加双引号
}
 s2 :
=
 AnsiQuotedStr(XMLDocument1.Encoding, 
'
"
'
); 
{ 
读出字符集, 并添加双引号
}
 str :
=
 Format(
'
<?xml version=%s encoding=%s?>
'
,[s1,s2]); 
{ 
这就是文件头了
}
 str :
=
 str 
+
 sLineBreak 
+
 ReadXml(XMLDocument1.DocumentElement);
 ShowMessage(str); 
{ 
返回 xml 包含问头在内的所有内容
}
end
;
//
调用测试(
2
)
procedure
 TForm1.Button2Click(Sender: TObject);
var
 str: 
string
;
 node: IXMLNode;
begin
 XMLDocument1.LoadFromFile(
'
c:\temp\test.xml
'
);
 node :
=
 XMLDocument1.DocumentElement.ChildNodes[
0
];
 str :
=
 ReadXml(node);
 ShowMessage(str); 
{ 
返回返回根节点下第一个子节点的所有内容
}
end
;
end
.
本文转自黄聪博客园博客，原文链接：http://www.cnblogs.com/huangcong/archive/2010/08/27/1809952.html，如需转载请自行联系原作者