ＸＭＬ

Question

有数据集合，要全部循环组织成ＸＭＬ格式保存到文本文件． 
内容串起来加上循环比较多 
超级慢 有过经验的可有什么办法

Answer 1

如果用数据集,可以直接保存为XML格式

Answer 2

数据集的话可以用
ADOQuery1.SaveToFile('C:\filename.xml', pfXML);

Answer 3

是数据集的话用
qry1.SaveToFile('C:\filename.xml', pfXML);

Answer 4

可惜了，不是从数据集是从list里面取
如何写XML是可以完成的
当前的问题是我将生成的一个大串一次写入文件
速度好慢

Answer 5

procedure GenXml(Field:TStringList;Content:string);
var xml:IXMLDocument;
    xmlroot,xmlTable,xmlField:IXMLNode;
    i:Integer;
begin
  xml:=TXMLDocument.Create(nil);
  try
    xml.Active:=true;
    xml.Version:='1.0';
    xml.Encoding:='GB2312';
    xmlroot:=xml.AddChild('root');
    xmlTable:=xmlroot.AddChild('Menu');
    for i:=0 to Field.Count-1 do
    begin
      xmlField:=xmlTable.AddChild(Field.Strings[i]);
      //ShowMessage(Content);
      xmlField.Text:=Content;
    end;
    xml.SaveToFile('c:\abc.xml');
  finally
    xml:=nil;
  end;
end;