首页 »PHP教程 » .netxmldocument:Delphi 中的 XMLDocument 类详解(20) - 动态建立 XMLDocument 对象 »正文
.netxmldocument:Delphi 中的 XMLDocument 类详解(20) - 动态建立 XMLDocument 对象
来源: 发布时间:星期一, 2009年11月30日 浏览:0次 评论:0
unit Unit1;
erface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, xmldom, XMLIntf, msxmldom, XMLDoc; type TForm1 = (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.
相关文章
读者评论
发表评论
|
|