如何把dbgrid中（包括用query查询出的）的数据转出为.txt文档？

Question

word2000的都能转换，这种也能的吧？主要是我不知怎么转换成word2000的那种。

Answer 1

我这里有一段将table的数据转换成 TXT的，query1也是一样，看能不能对你有所帮助。procedure TForm1.Button1Click(Sender: TObject);
var
   dataoutfile:textfile;   {数据输出文件}
   fieldnumber,i,j,fieldlen,blanknumber,datalen:integer;
   tempstr,s:string;
begin
      {打开数据表}
  if table1.active=false then
        table1.open;
  table1.DisableControls;
  table1.First;
      {指定数据输出的文本文件}
  savedialog1.Execute;
  assignfile(dataoutfile,savedialog1.filename);
  rewrite(dataoutfile);
      {得到数据表的字段数}
  fieldnumber:=table1.FieldCount-1;
  while not table1.Eof do
  begin
    s:='';  {s用来存取一行记录}
    for i:=0 to fieldnumber do
    begin
      tempstr:=''; {用来存取一个字段}
      fieldlen:=table1.Fields[i].Size; {取字段长度}
      tempstr:=table1.Fields[i].asstring;{取字段内容}
      datalen:=length(tempstr); {得到内容长度}
      blanknumber:=fieldlen-datalen; {确定应填充空格长度}      for j:=1 to blanknumber do
      begin
        tempstr:=tempstr+' ';
      end;
      s:=s+tempstr;
    end;
    writeln(dataoutfile,s);
    table1.next;
  end;
  {指定将输出的文本文件}
  closefile(dataoutfile);
  table1.EnableControls;
end;

Answer 2

不错啊，不知把table换成query是不是行，我先去试试，其实就凭你这段代码，是完全是值这20分的。如果table行的话分也给你了。

Answer 3

//送DataSet包括Table、Query、AdoTable等DataSet的数据到文件
//FileName为包括路径扩展名的文件名
//JG为Field的间隔符，可用#9；并把FilaName的文件扩展名定为。XLS，
//则输出的文件可被EXCEL直接读取
procedure SendToExc(DataSet :TDataSet;FileName:string;JG:char);
var i :Integer ;
    str : String ;
    StrList : TStringList ;
begin
       try
          //添加报表内容
          StrList := TStringList.Create ;
          DataSet.Active := True ;
          DataSet.First ;
          Dataset.DisableControls ;
          while not DataSet.Eof do
          begin
              str := '' ;
              for i := 0 to DataSet.FieldCount-1 do
                  str := str + DataSet.Fields[i].AsString + #9;
              StrList.Add(str);
              DataSet.Next;
          end;
          StrList.SaveToFile(FileName) ;
          DataSet.EnableControls ;
       except
          StrList.Free ;
       end;
end;

Answer 4

记得给我分，我专为你写的过程，
可以发个E感谢我：[email protected]

Answer 5

多谢了，我已经发信来了， 我的OICQ是40639535，请来找我。