xml.Active:=True; xml.Version:='1.0'; xml.Encoding:='GB2312'; xmlroot:=xml.AddChild('root'); while not qrySQL.Eof do begin for j:=0 to qrySQL.Fields.Count-1 do begin xmlField:=xmlroot.AddChild(qrysql.fields[i]); xmlField.Text:=qrySQL.FieldByName(qrysql.fields[i]).AsString; end; qrySQL.Next; end; xml.SaveToFile('c:\aa.xml');
数据库生成xml格式
最新推荐文章于 2024-09-14 19:55:29 发布