关于Delphi操作复杂的XML文件的方法，谢谢。

Question

xml文件的结构：
<头部分>
   <头部分1>.....</头部分1>
   <头部分2>.....</头部分2>
   ....
   <头部分n>.....</头部分n>
</头部分>
<主体部分>
   <主体部分1>
      <变量1>.....</变量1>
      ....
      <变量n>.....</变量n>
   </主体部分1>
   <主体部分2>
      <变量1>.....</变量1>
      ....
      <变量n>.....</变量n>
   </主体部分2>
   ......
   <主体部分n>
      <变量1>.....</变量1>
      ....
      <变量n>.....</变量n>
   </主体部分n>
</主体部分>这个xml的头部分和主体部分，跟数据库的不同的表进行关联的，
例如：<主体部分1>保存的是[个人信息表]的数据，<主体部分2>保存的是[津贴]表的数据等等。
要把数据库相关表的值保存到一个xml文件里面。并且打开文件的时候，可以通过Delphi把
数据从xml文件读入数据库中。请问：
使用Delphi的xml对象该如何操作？DTD部分如何做。谢谢。如果可以，请给出xml操作部分的Demo.
或者发电子邮件给我：[email protected]

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  a: TXMLDocument;
  b:string;
begin
  a:=TXMLDocument.Create(self);
  a.FileName:='http://localhost/xml/web.xml';
  a.Active:=true;
  b:=a.DocumentElement.ChildNodes['servlet'].ChildNodes['display-name'].Text;
  showmessage(b);
end;