请教怎么把查询出来的数据另存为其他文件

Question

用Tfilestream
然后用filestream.write 函数往里面写就可以了。
这样做的方法好处是便于以后处理

Answer 1

假设用Quey1获得查询数据：  DataSetProvider1.DataSet :3D Quey1;
  ClientDataSet1.Data := DataSetProvider1.Data;
  ClientDataSet1.Open;
  ClientDataSet1.SaveToFile('H:\Luo.xml',dfXML);
//下次可以从文件取得数据
ClientDataSet1.LoadFromFile('H:\Luo.xml');—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————