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，如需转载请自行联系原作者