如何在Delphi中創建一個使用TXML文檔的XML文件7

Question

我用下面的代碼來創建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 Settings\a\Desktop\New 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但XML文檔不顯示輸出時在IE的記事本中看到。哪裏有問題？在此先感謝

Answer 1

刪除此：

XMLDoc.FileName:='C:\Documents and Settings\a\Desktop\New Text Document.xml'; 

，並添加像這樣的代碼完成創建XML文檔後：

XMLDoc.SaveToFile('C:\Documents and Settings\a\Desktop\New Text Document.xml');