如何把dbgird的结果保存为文件

如何把dbgird的结果保存为文件  
  能保存多种格式  
  txt,execl     等。。。 问题点数：20、回复次数：4Top

1 楼xiaotao2004（郁闷中...）回复于 2005-11-13 18:55:56 得分 2

adoquery1.savetofile();Top

2 楼must0001（飞鸟）回复于 2005-11-14 13:05:33 得分 2

用DBGRIDEH，有这样的功能。Top

3 楼wtg476（起飞）回复于 2005-11-14 13:14:01 得分 1

savetofile();  
  Top

4 楼luxuewei5214（小卢)(以下内容仅供参考）回复于 2005-11-14 13:28:40 得分 15

一段以adotable为数据集，存入txt文件作为日志的例子  
  var   f:textfile;  
          cc:integer;  
          filename:string;  
  begin  
      adotable1.Open;  
      filename:=ExtractFilePath(Application.ExeName)+'logs\'+datetostr(date)+'.txt';  
      //showmessage(ExtractFilePath(Application.ExeName));  
      assignFile(f,filename);  
      rewrite(f);  
      //adotable1.field  
      with   adotable1   do  
      begin  
          disablecontrols;  
          first;  
          while   not   eof   do  
          begin  
            for   cc:=0   to   fieldcount-1   do  
            write(f,fields[cc].asstring);  
            next;  
          end;  
          writeln(f,'');  
          first;  
          enablecontrols;  
      end;  
      closefile(f);  
  end;Top

相关问题

• 文件
• application
• dbgird
• adotable
• extractfilepath
• exename
• savetofile
• 结果保存为文件
• cc
• filename

• 帖主：dreamfeer
• xiaotao2004
• must0001
• wtg476
• luxuewei5214

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载