动态创建TXMLDocument--使用IXMLDocument接口

var
  XML : TXMLDocument;
  DocIntf : IXMLDocument;
begin
  XML := TXMLDocument.Create(nil);
  DocIntf := XML;  //防止接口被自动释放，少了这一句会发生AV

  无宿主时一定要加后面这一句。

不过一般不要这样做为好，先来看看delphi中关于XML文档的几个单元。

    ·XMLIntf――包括了Borland自己定义的XML文档的接口； 

　　·XMLDoc――是对XMLIntf中所定义接口的Borland实现； 

　　·Xmldom――定义了DOM（文档对象模型）接口，这里对DOM接口进行了Borland的实现； 

　　·Msxmldom――实现微软对Xmldom中定义的接口的实现，主要调用微软的COM对象来实现，对Xmldom中定义接口的封装； 

　　·Xercesxmldom――Borland通过Xerces   XML   DOM方式来实现对Xmldom中定义接口的封装；  

    Oxmldom――Borland通过使用OpenXML来实现对Xmldom中定义接口的封装； 

　　通常情况下不通过直接使用TXMLDocument对象来进行XML文件的读取，而是使用XMLDoc单元中提供的几个有用的函数来读取XML文档，这些函数包括： 

function   LoadXMLDocument(const   FileName:   DOMString):   IXMLDocument; 

function   LoadXMLData(const   XMLData:   DOMString):   IXMLDocument;   overload; 

function   LoadXMLData(const   XMLData:   string):   IXMLDocument;   overload; 

function   NewXMLDocument(Version:   DOMString   =   '1.0 '):   IXMLDocument;   

　　可以看出这些函数全部返回的是IXMLDocument接口，得到了IXMLDocument接口再进行文档的操作；这些函数都是通过创建TXMLDocument对象来实现对XML文档的读取的；其中NewXMLDocument仅仅创建一个IXMLDocument接口。