，关于生成XML文件

在线等，高手进关于生成XML文件
生成XML文件中  
 <Param name="xb">女</Param> 
  <Param name="xbdm">2</Param> 
  <Param name="csrq">1986-12-05</Param> 
  <Param name="minzu">汉族</Param> 
  <Param name="mzdm">01</Param> 
  <Param name="hyzk">未婚</Param> 
  <Param name="hyzkdm">1</Param> 
  <Param name="hjdxzqh">北京市东城区</Param> 
  <Param name="hjdxzqhdm">110101</Param> 
  <Param name="rzrq">2010-09-15</Param> 
  <Param name="hjdxz">户籍地详址</Param>，请问这个怎么写

[解决办法]

Delphi(Pascal) code

var I: Integer;    FieldNames: TStringList;    sXml: String;begin  FieldNames := TStringList.Create;  try    ADOQuery1.GetFieldNames(FieldNames);    sXml := '';    for I := 0 to FieldNames.Count - 1 do begin      sXml := sXml + '<Param name="' + FieldNames[I] + '">' + ADOQuery1.FieldByName(FieldNames[I]).AsString + '</Param>' + sLineBreak;    end;  finally    FieldNames.Free;  end;end;