如何使用Delphi 7中的TXML Document创建XML文件

发布时间：2020-12-15 09:29:17 所属栏目：大数据来源：网络整理

导读：我使用以下代码来创建 XML文档： procedure TForm1.btnCreateXMLClick(Sender: TObject); var rootName:string; childName:string; attrChild:string; iXml: IDOMDocument; iRoot,iNode,iNode2,iChild,iAttribute: IDOMNode;begin XMLDoc.Active:=false; XML

我使用以下代码来创建 XML文档：

procedure TForm1.btnCreateXMLClick(Sender: TObject);
  var
   rootName:string;
  childName:string;
  attrChild:string;
   iXml: IDOMDocument;
  iRoot,iNode,iNode2,iChild,iAttribute: IDOMNode;
begin
  XMLDoc.Active:=false;
   XMLDoc.XML.Text:='';
   XMLDoc.Active:=true;
    XMLDoc.FileName:='C:Documents and SettingsaDesktopNew Text Document.xml';
     iXml := XmlDoc.DOMDocument;
   //iRoot:=iXml.documentElement(iXml.createElement('xml'));
    iRoot := iXml.appendChild(iXml.createElement ('xml'));
     // node "test"
     iNode := iRoot.appendChild (iXml.createElement ('test'));
      iNode.appendChild (iXml.createElement ('test2'));
   iChild := iNode.appendChild (iXml.createElement ('test3'));
    iChild.appendChild (iXml.createTextNode('simple value'));
     iNode.insertBefore (iXml.createElement ('test4'),iChild);

   // node replication
     iNode2 := iNode.cloneNode (True);
  iRoot.appendChild (iNode2);

    // add an attribute
      iAttribute := iXml.createAttribute ('color');
        iAttribute.nodeValue := 'red';
      iNode2.attributes.setNamedItem (iAttribute);

    // show XML in memo
      memXMLOutput.Lines.Text:=FormatXMLData(XMLDoc.XML.Text);
   end;

我在memXMLOutput中获得输出,但是当在Notepad或IE中看到时,XML文档没有显示输出.问题出在哪儿？提前致谢

解决方法

删除这个：

XMLDoc.FileName:='C:Documents and SettingsaDesktopNew Text Document.xml';

在完成代码创建XML文档后添加类似的内容：

XMLDoc.SaveToFile('C:Documents and SettingsaDesktopNew Text Document.xml');

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!