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.