在线等，高手进关于生成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;