黄聪：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.

出处:http://www.cnblogs.com/del/archive/2008/01/08/1029692.html