Delphi 中的 XMLDocument 類詳解(14) – 遍曆 XML 檔案

unit Unit1;interfaceuses  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.