DELPHI操作XML添加DOCTYPE部分信息

    最近其他项目组遇到一个数据导出XML的小问题，因为我以前对操作XML比较熟悉，自然找到我帮助结局。其实DELPHI操作XML还是很方便的，问题出在他们的XML头部必须有 !DOCTYPE 部分 例如下面的XML代码：

<? xml version="1.0" encoding="GB2312" ?>
<! DOCTYPE  math SYSTEM "http://www.w3.org/Math/DTD/mathml1/mathml.dtd" >
< root >
   < test >
     < add  key ="-1"  filename ="oFile" />
   </ test >
</ root >

 

    对于在C#中很好操作，DELPHI这部分代码相对较少，在GOOGLE上搜索也没结果，于是我看了一下DELPHI的 NativeXml.pas 源代码，发现其中有 xeDoctype 的定义，这正是我们要找的。哈。。

    定义XML DOCTYPE  的 DELPHI代码如下：

    uses  NativeXml 

procedure  TForm1.Button1Click(Sender: TObject);
var
  xml: TNativeXML;
  n_bs: TXMLNode;
begin
  xml : =  TNativeXml.CreateName( ' root ' );
  xml.EncodingString : =   ' GB2312 ' ;
  xml.XmlFormat : =  xfReadable;

   // 正常XML部分
  n_bs : =  xml.Root.NodeNew( ' test ' );
  n_bs : =  n_bs.NodeNew( ' add ' );
  n_bs.WriteAttributeString( ' key ' ,  ' -1 ' );
  n_bs.WriteAttributeString( ' filename ' ,  ' oFile ' );

   // 添加  < !DOCTYPE ? >  部分
  n_bs : =  TXmlNode.CreateType(xml, xeDoctype);
  n_bs.ValueDirect : =   ' math SYSTEM "http://www.w3.org/Math/DTD/mathml1/mathml.dtd" ' ;
  xml.RootNodeList.NodeInsert( 1 , n_bs);

  xml.SaveToFile('1.xml');

end; 

这样我们就输出上面的XML文件了。