如何用txmldocument生成以下xml文档?多谢大家喽,

<?xml   version="1.0"   encoding="UTF-8"   standalone="yes"?>  
  <Server   xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">  
  <Config>  
  <ID>1</ID>  
  </Config>  
  <Config>  
  <ID>2</ID>  
  </Config>  
  <Server> 问题点数：100、回复次数：3Top

1 楼hthunter（茫茫然时光飞逝）回复于 2005-07-31 15:58:25 得分 100

with   XMLDocument1   do  
      begin  
          XML.Add('<Server   xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">'#13#10'</Server>');  
          Active   :=   True;  
          Encoding   :=   'UTF-8';  
          StandAlone   :=   'yes';  
          DocumentElement.AddChild('Config').AddChild('ID').NodeValue   :=   1;  
          DocumentElement.AddChild('Config').AddChild('ID').NodeValue   :=   2;  
          SaveToFile('d:\test.xml');  
      end;  
  Top

2 楼okyzx（Jason）回复于 2005-07-31 16:11:54 得分 0

TKS我先试一上,好了,就结Top

3 楼charlie790801（时间过得好快啊。）回复于 2005-09-01 23:26:05 得分 0

呵呵,如果一个节点下想建多个,则用  
  procedure   TForm1.btnCreateXmlDoc1Click(Sender:   TObject);  
  var  
      tNode   :IXMLNode;  
  begin  
  with   XMLDocument1   do  
      begin  
          XML.Add('<Server   xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">'#13#10'</Server>');  
          Active   :=   True;  
          Encoding   :=   'GB2312';  
          StandAlone   :=   'yes';  
   
          tNode   :=   DocumentElement.AddChild('LOGINSERVER');  
          tNode.AddChild('ServerName').NodeValue:=   '内测服务器';  
          tNode.AddChild('ServerIP').NodeValue   :=   '127.0.0.1';  
          tNode.AddChild('ServerIP').NodeValue   :=   '127.0.0.2';  
          tNode.AddChild('Port').NodeValue   :=   80;  
    SaveToFile(ExtractFilePath(Application.ExeName)   +   'test.xml');  
  endTop

相关问题

• xml
• addchild
• tnode
• nodevalue
• documentelement

• 帖主：okyzx
• hthunter

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载