Delphi 中的 XMLDocument 類詳解(15) - 創建與保存 xml

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　xmldom,　XMLIntf,　StdCtrls,　msxmldom,　XMLDoc;　
　
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　屬性創建　XML　文件　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　XMLDocument1.XML.Clear;　
　XMLDocument1.XML.Add('');　
　XMLDocument1.XML.Add('<科室名單　備注="測試">');　
　XMLDocument1.XML.Add('<人員　職務="科長"　備注="正局級">');　
　XMLDocument1.XML.Add('<姓名>張三');　
　XMLDocument1.XML.Add('<性別>男');　
　XMLDocument1.XML.Add('<年齡>34');　
　XMLDocument1.XML.Add('');　
　XMLDocument1.XML.Add('');　
　
　{查看}　
　ShowMessage(XMLDocument1.XML.Text);　
　
　{保存}　
　XMLDocument1.Active　:=　True;　
　XMLDocument1.SaveToFile('c:\temp\1.XML');　
end;　
　
　
//創建　XML　文件的標准方法　
procedure　TForm1.Button2Click(Sender:　TObject);　
var　
　pNode,cNode:　IXMLNode;　{定義兩個節點:　父節點、子節點}　
begin　
　XMLDocument1.XML.Clear;　
　XMLDocument1.Active　:=　True;　　　　　　　　{必須先激活}　
　XMLDocument1.Version　:=　'1.0';　　　　　　　{設置版本}　
　XMLDocument1.Encoding　:=　'GB2312';　　　　　{設置語言}　
　
　pNode　:=　XMLDocument1.AddChild('科室名單');　{添加的第一個節點是根節點,　現在的　pNode　是根節點}　
　pNode.SetAttribute('備注',　'測試');　　　　　{為根節點設置屬性}　
　
　pNode　:=　pNode.AddChild('人員');　　　　　　{為根節點添加子節點,　現在的　pNode　是　"人員"　節點}　
　pNode.SetAttribute('職務',　'科長');　　　　　{設置屬性}　
　pNode.SetAttribute('備注',　'正局級');　
　
　cNode　:=　pNode.AddChild('姓名');　{為　pNode　添加子節點,　返回值　cNode　指向了新添加的節點}　
　cNode.Text　:=　'張三';　
　
　cNode　:=　pNode.AddChild('性別');　
　cNode.Text　:=　'男';　
　
　cNode　:=　pNode.AddChild('年齡');　
　cNode.Text　:=　'34';　
　
　{查看}　
　ShowMessage(XMLDocument1.XML.Text);　
　
　{保存}　
　XMLDocument1.SaveToFile('c:\temp\2.XML');　
end;　
　
end.