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文件了。