，关于生成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>，请问这个怎么写
------解决方案--------------------
生成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;