unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;typeTForm1 = class(TForm)XMLDocument1: TXMLDocument;Memo1: TMemo;Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;procedure FormCreate(Sender: TObject);procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);procedure Button4Click(Sender: TObject);procedure Button5Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}//打开
procedure TForm1.FormCreate(Sender: TObject);
beginXMLDocument1.LoadFromFile('c:\temp\test.xml');{必须用万一提供的 xml 测试文件, 才能有相同的返回值}
end;//XMLDocument1 对象的 XML 属性
procedure TForm1.Button1Click(Sender: TObject);
begin{前面我们经常用这句话, 因为这里的 Lines 与 XML 同属于 TStrings}Memo1.Lines := XMLDocument1.XML;{如果不怕麻烦, 这样写也可以:}Memo1.Lines.Text := XMLDocument1.XML.Text;{如果知道了这一点, 那 XML 属性的功能可就多了, 并且这里的 XML 属性是可写的}{不过这里要谈的是节点的 XML 属性}
end;//根节点的 XML 属性
procedure TForm1.Button2Click(Sender: TObject);
varnode: IXMLNode;
begin{先看根节点: XMLDocument1.DocumentElement}node := XMLDocument1.DocumentElement;//Memo1.Lines := node.XML; {这一句会出错}{因为节点的 XML 属性是 WideString 类型的, 应该这样:}Memo1.Lines.Text := node.XML; {将会读出根节点与根节点包含的所有内容}{还有一个更大的区别: 节点的 XML 是只读的!}
end;//子节点的 XML 属性
procedure TForm1.Button3Click(Sender: TObject);
varnode: IXMLNode;
beginnode := XMLDocument1.DocumentElement;node := node.ChildNodes[0];Memo1.Lines.Text := node.XML; {会显示一个子节点的全部}
end;//属性的 XML 属性
procedure TForm1.Button4Click(Sender: TObject);
varnode: IXMLNode;
beginnode := XMLDocument1.DocumentElement;node := node.AttributeNodes[0]; {属性也是 IXMLNode 类型的}ShowMessage(node.NodeName);  {备注}ShowMessage(node.NodeValue); {测试}{用 XML 属性一次把他们都读出来:}ShowMessage(node.XML);       {备注="测试"}
end;//叶节点的 XML 属性
procedure TForm1.Button5Click(Sender: TObject);
varnode: IXMLNode;
beginnode := XMLDocument1.DocumentElement;node := node.ChildNodes[0];node := node.ChildNodes[0];node := node.ChildNodes[0]; {这就是叶节点了}ShowMessage(node.XML);  {张三}{这时的 XML 属性和 Text 属性一样了}ShowMessage(node.Text); {张三}
end;end.