如何把dbGrid中的数据导入到文本中，格式怎样确定：

Question

各位，我想把数据库中的DBGrid中的数据导入到文本中怎么作，在文本中格式如何控制，类似移动话单的样子，通过DataSet的SaveFile（）可以实现否？

Answer 1

通过生成文本文件的方法：
var
  f1:TextFile;
  str:string;
  i:integer;
begin
  with dbgrid1.datasource.dataset do
     disablecontrols;
     assignfile(f1,'c:\test.txt');
     rewrite(f1);
     first;
     while not eof  do 
      begin
         str:='';
        for i:=0 to fieldcount-1 do
         str:=str+fields[i].asstring+'   ';
        writeln(f1,str);
        next;
      end;
   fileclose(f1);
   first;
   enablecontrols;
  end;
end;