dbgrid 转换成Txt

dbgrid 转换成Txt Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061222172931157.html
我希望利用ado   控件，请给出详细代码?

如果想比较快，可以用dbgrideh控件或者cxgrid，他们都提供了导出功能。  
  不用控件，可以自己先创建txt文件，自己写导出，

DM.DataSet.SaveToFile('C:\我的文件.dbt',pfADTG);  
  //导出来的文件扩展名你自己随便定，   但是估计你看不懂里面的内容，要想导出标准的文本，你可以   导出成xml文件～！

你要保存成xml   就在后面使用pfXML  
 

 
      for   循环写   txt

while   not   DataModule1.ADOQuery.Eof   do  
  begin  
      n1   :=   DataModule1.ADOQuery.fieldbyName('KQJHZD').AsString;  
      n2   :=   DataModule1.ADOQuery.fieldbyName('BHZD').AsString;  
      n3   :=   DataModule1.ADOQuery.fieldbyName('BC1').AsString;  
      n4date   :=   DataModule1.ADOQuery.fieldbyName('RQZD').AsDateTime;  
      n4   :=   DateToStr(n4Date);  
   
      n5   :=   DataModule1.ADOQuery.fieldbyName('SJZD').AsString;  
   
      TxtStr   :=   '   '+   n1+'   '+   ','+'   '+   n2+'   '+   ','+'   '+   n3+'   '+   ','+'   '+   n4+'   '+   ','+'   '+   n5+'   ';  
   
      AssignFile(F,   SavePath);  
      Append(F);  
      Writeln(F,   TxtStr);  
      CloseFile(F);  
      DataModule1.ADOQuery.Next;  
  end;  
  这是我用过的一个方法，但愿对你有点帮助

我要显示的字段有40个左右，难道要定义40个变量吗？  
  还要别的方法吗？

在while循环中可以加入For  
  for   I:=0   to   fieldcount-1   do  
  LinesStr:=LinesStr+Fields[I].asstring+',';   这样就不需要定义变量了！

上面的写文件有问题，打开和关闭文件不应该出现在循环体内。循环开始就打开准备写，结束之后再关闭。

转载于:https://www.cnblogs.com/delphi2007/archive/2008/12/11/1352483.html