delphi6生成xml文件！！！！

我想自己做个生成后缀名称为.xml的文件。里面的参数都由edit的框传到里面，然后直接放到指定的目录下，例如：
<query_para>
<name>参数1</name>
<title>参数2</title>
<format>参数3</format>
<parameters>
<parameter>
<en>参数1_1</en>
<cn>参数1_2</cn>
<defaultvalue>参数1_3</defaultvalue>
<type>参数1_4</type>
<sequence>参数1_5</sequence>
<readonly>参数1_6</readonly>
</parameter>
........
</parameters>
</query_para>

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

用TXMLDocument来实现http://lysoft.7u7.net
XML Document Programming
http://www.pcbookcn.com/article/1476.htm
用我给aiirii的文章里写到的东西。你只需要写个类，published的属性里包含了name,title,format,en,cn,defaultvalue,type,sequence,readonly等。只要两行代码。就可以直接和XML文件进行数据绑定了等eMag-Delphi出来吧～～
procedure TForm1.Button1Click(Sender: TObject);
var
  Clinic: IXMLNode;begin
  current := 0;  Clinic := XMLDocument1.DocumentElement.ChildNodes[0];
  Memo1.Lines.Clear;
  Memo1.Lines.Add(Clinic.ChildNodes['en'].Text);
  Memo1.Lines.Add(Clinic.ChildNodes['cn'].Text);
  Memo1.Lines.Add(Clinic.ChildNodes['defaultvalue'].Text);
  Memo1.Lines.Add(Clinic.ChildNodes['type'].Text);
  Memo1.Lines.Add(Clinic.ChildNodes['sequence'].Text);
  Memo1.Lines.Add(Clinic.ChildNodes['readonly'].Text);
end;
为什么在memo1上得不到值？全是白的屏幕
procedure TForm1.Button1Click(Sender: TObject);
var
  xmlDoc: IXMLDocument;
  aNode, tmpNode: IXMLNode;
  s: string;
begin  xmlDoc := TXMLDocument.Create(nil);
  try
    xmlDoc.Active := True;
    xmlDoc.Version := '1.0';
    xmlDoc.Encoding := 'ISO-8859-1';
    aNode := xmlDoc.AddChild('breakfast_menu');
    tmpNode := aNode.AddChild('food');    aNode := tmpNode.AddChild('name');
    aNode.Text := 'Belgian Waffles';    aNode := tmpNode.AddChild('price');
    aNode.Text := '$5.95';    aNode := tmpNode.AddChild('description');
    aNode.Text := 'two of our ';    aNode := tmpNode.AddChild('calories');
    aNode.Text := '650';    xmlDoc.SaveToFile('d:\test.xml');
  finally
    xmlDoc := nil;
  end;end;
用xywu(家猫) 的代码，完全能解决问题
我知道xywu(家猫) 的代码可以实现，问题如果我想对<parameter></parameter>做多个处理怎么办？循环？还是要怎么样
procedure TForm1.Button1Click(Sender: TObject);
var
  FXML: TXMLDocument;
  SchemeNode, AreaNode, AgentNode, OrderNode: IXMLNode;
begin
  FXML := TXMLDocument.Create(SELF);
  Try
    FXML.Active := True;
    FXML.Version := '1.0';
    FXML.Encoding := 'GB2312';    SchemeNode := FXML.AddChild('·½°¸');
    SchemeNode.NodeValue := 'ºúÆ½ÒµÎñÌá³É·½°¸';    AreaNode := SchemeNode.AddChild('ÇøÓò');
    AreaNode.NodeValue := '¶«Ý¸';    AgentNode := AreaNode.AddChild('¾ÏúÉÌ');
    AgentNode.NodeValue := '²Ü¶«ÆÂ';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800001';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800002';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800003';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800004';
    AgentNode := AreaNode.AddChild('¾ÏúÉÌ');
    AgentNode.NodeValue := 'Íõ»ÝÃ·';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800005';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800006';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800007';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800008';    AreaNode := SchemeNode.AddChild('ÇøÓò');
    AreaNode.NodeValue := 'ºÓÄÏ';    AgentNode := AreaNode.AddChild('¾ÏúÉÌ');
    AgentNode.NodeValue := 'ÉòÖ¾ÓÂ';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800020';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800021';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800022';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800023';
    AgentNode := AreaNode.AddChild('¾ÏúÉÌ');
    AgentNode.NodeValue := 'ºúÓÂ';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800030';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800031';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800032';
    OrderNode := AgentNode.AddChild('¶©µ¥±àºÅ');
    OrderNode.NodeValue := '00002004032800033';    FXML.SaveToFile('a.xml');
  Finally
    FXML.Destroy;
    showmessage('XMLÐ´Íê³É£¡');
  End;
end;