这个程序可以用于解析任何合法的XML字符串。

首先是看一下程序的运行效果：　　　　　　　　　　　　

　　以解析这样一个XML的字符串为例：

<?xml version="1.0" encoding="UTF-8"?><BookInfo><Owner><OwnerName>张三</OwnerName><OwnerAge>1234</OwnerAge></Owner><BookMes><BookName>时间简史</BookName><ISDN>234343453534</ISDN><Writer>霍金</Writer></BookMes></BookInfo>

　　首先是打开应用程序

　　然后将上面所示的字符串复制到文本编辑框中，然后点击解析按钮，会出现下面的效果

　　如上图所示，可以 “XML中的字段标签：XML中对应标签的值” 的格式显示解析的效果。

然后看一下代码　　　　　　　　　　　　　　　　　　　

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, XMLIntf, XMLDoc; type TForm1 = class(TForm) edt1: TEdit; btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure ReadXml(Node: IXMLNode; var showmess: string); var NodeList: IXMLNodeList; strName: string; i: Integer; begin if not Node.HasChildNodes then Exit; nodeList := node.ChildNodes; for i := 0 to nodeList.Count - 1 do begin strName := nodeList[i].NodeName; if nodeList[i].IsTextElement then //如果是元素 begin showmess:= showmess + strName + ‘:‘ + NodeList[i].NodeValue + #13#10; end else if nodeList[i].HasChildNodes then //如果有子节点 begin ReadXml(NodeList[i], showmess); end; end; end; procedure TForm1.btn1Click(Sender: TObject); var sXML, showmess: string; ComInstrXML: IXMLDocument; mainNode: IXMLNode; begin showmess:= ‘‘; sXML:= edt1.Text; sXML:= StringReplace(sXML, ‘UTF-8‘, ‘gbk‘, [rfReplaceAll]); try ComInstrXML:= LoadXMLData(sXML); mainNode:= ComInstrXML.DocumentElement; readXML(mainNode, showmess); ShowMessage(showmess); except on E: Exception do begin ShowMessage(E.Message); end; end; end; end.

讲解一下代码　　　　　　　　　　　　　　　　　　　　

0.建议这样使用XML解包

　　本例中的程序，在解包之后是将标签以及对应的值显示在弹出框上，这样只是为了演示解析XML的效果。

　　建议在开发中将解析好的XML节点，，以节点的标签作为Key，以节点的内容作为value，插入到一个可以搜索的链表或者其他什么可以根据Key进行搜索的容器类中，然后在之后使用的时候就可以很方便的搜索到解析后的值。

1.递归解包XML

　　因为XML本身就是一个递归的结构，所以解包XML，也就是其中的ReadXML 方法使用的就是递归的方法，递归结束标志是：正在解析的XML标签是一个元素，没有子节点。

2.字符编码的问题 

　　在 TForm1.btn1Click(Sender: TObject) 方法中，我们可以看到首先将XML字符串中的 ‘UTF-8‘ 替换为 ‘gbk‘，因为如果编码方式是UTF-8：<?xml version="1.0" encoding="UTF-8"?>，那么如果XML中存在中文，那么解析的时候会报错（如果全部为英文，那么就不会报错），如下图

　　如果将UTF-8替换为gbk，，那么在解析XML的时候就不会报这样的错误。

　　另外如果以不包含编码格式的XML字符串，如：<BookInfo><Owner><OwnerName>张三</OwnerName><OwnerAge>1234</OwnerAge></Owner><BookMes><BookName>时间简史</BookName><ISDN>234343453534</ISDN><Writer>霍金</Writer></BookMes></BookInfo>，没有 <?xml version="1.0" encoding="UTF-8"?>的话，此时就算有   sXML:= StringReplace(sXML, ‘UTF-8‘, ‘gbk‘, [rfReplaceAll]);   这样的替换字符编码的代码也是没有用的，也没有办法改成gbk的编码，所以仍然会报上面的异常。

　　所以请注意字符编码的问题，尤其是既有中文又有英文的时候。

3.stringReplace函数的使用

　　function StringReplace (const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; 

rfReplaceAll：全部替换 
rfIgnoreCase：忽略大小写

例子