Delphi 中的 XMLDocument 類詳解(20) - 動態建立 XMLDocument 對

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls,　xmldom,　XMLIntf,　msxmldom,　XMLDoc;　
　
type　
　TForm1　=　class(TForm)　
　　Button1:　TButton;　
　　Button2:　TButton;　
　　Button3:　TButton;　
　　procedure　Button1Click(Sender:　TObject);　
　　procedure　Button2Click(Sender:　TObject);　
　　procedure　Button3Click(Sender:　TObject);　
　private　
　　{　Private　declarations　}　
　public　
　　{　Public　declarations　}　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　
　
//使用　TXMLDocument　類　
procedure　TForm1.Button1Click(Sender:　TObject);　
var　
　xmlDoc:　TXMLDocument;　
begin　
　xmlDoc　:=　TXMLDocument.Create(nil);　
　XMLDoc.LoadFromFile('c:\temp\test.xml');　
　ShowMessage(FormatXMLData(xmlDoc.XML.Text));　
　FreeAndNil(XMLDoc);　
end;　
　
　
//使用　IXMLDocument　接口　
procedure　TForm1.Button2Click(Sender:　TObject);　
var　
　xmlDoc:　IXMLDocument;　
begin　
　xmlDoc　:=　TXMLDocument.Create(nil);　
　xmlDoc.LoadFromFile('c:\temp\test.XML');　
　ShowMessage(FormatXMLData(xmlDoc.XML.Text));　
　XMLDoc　:=　nil;　
end;　
　
　
//使用　IXMLDocument　接口的　NewXMLDocument　方法　
procedure　TForm1.Button3Click(Sender:　TObject);　
var　
　xmlDoc:　IXMLDocument;　
begin　
　xmlDoc　:=　NewXMLDocument;　
　xmlDoc.LoadFromFile('c:\temp\test.XML');　
　ShowMessage(FormatXMLData(xmlDoc.XML.Text));　
　XMLDoc　:=　nil;　
end;　
　
end.