delphi操作xml之添加注释节点

最新推荐文章于 2024-05-06 15:19:07 发布

HeavenBen

最新推荐文章于 2024-05-06 15:19:07 发布

阅读量1.3k

点赞数

分类专栏： Delphi 文章标签： delphi xml encoding system 文档

Delphi 专栏收录该内容

214 篇文章 2 订阅

订阅专栏

xmlDemo:=TXMLDocument.Create(self);
    with xmlDemo do
    begin
      Active:=True;
      Version:='1.0';
      Encoding:='GBK';
      aNode:=createNode('DOCTYPE RZ00100 SYSTEM "RZ00100.dtd"',ntComment);//ntComment节点类型表示该节点是注释,其中aNode是IXMLNode类型的
      ChildNodes.Add(aNode);//添加注释节点当xml文档
      aNode:=AddChild('body');
      aValueNode:=aNode.AddChild('head');
      aValueNode.AddChild('code').Text:='RZ00100';
      aValueNode.AddChild('title').Text:='增值税专用发票抵扣联信息企业采集待认证数据';
      aValueNode.AddChild('nsr').Text:=TaxNo;
      aValueNode.AddChild('qymc').Text:=cmpName;
      aValueNode.AddChild('scrq').Text:=FormatDateTime('yyyymmdd',now);
      aValueNode.AddChild('rows').Text:=IntToStr(qry.RecordCount);
      aValueNode:=aNode.AddChild('data');
      SaveToFile(tmp);
      Active:=False;
    end;
    xmlDemo.Free;