1。你如果装了sql server
可以用它把数据导出道文本中;很方便2。自己写程序
with not qry.eof  do
begin
txt.writeln
for i:=0 to qry.fieldcount-1 do
  txt.write(qry.fileds[i].asstring+'  ')
qry.next
end;

解决方案 »

  1.   

    如果想写道doc文件中,你可能要comobjs了
      

  2.   

    我是用的第二种方法。
    但编译时总是有错误。以下是我的程序
    procedure TForm1.Button1Click(Sender: TObject);
    var
            MyText:TextFile;
            i:integer;
    begin
            AssignFile(MyText,'MyTextFile.txt');
            Rewrite(MyText);
            try
                    with not table1.Eof do
                      begin
                        for i:=0 to table1.fieldcount-1 do
                        writeln(Mytext,table1.fields[i].asstring)
                        Next
                      end        finally
                    CloseFile(MyText);
            end;
    end;
      

  3.   

    用Table建个表TableType为ttASCII再用BatchMove控件导入数据,不知行不行。
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    var
            MyText:TextFile;
            i:integer;
    begin    
            AssignFile(MyText,ExtractFilePath(Paramstr(0))+'MyTextFile.txt');
            Rewrite(MyText);
            try
                    TABLE1.FIRST;
                    WHILE not table1.Eof do
                      begin
                        for i:=0 to table1.fieldcount-1 do
                        writeln(Mytext,table1.fields[i].asstring);
                        Next
                      end
            finally
                    CloseFile(MyText);
            end;
    end;
      

  5.   

    ghz2000,我按照你的程序改过,生成了巨大无比的.txt文件,100多M还没结束
    其实并没有那么多数据,为什么呀?帮帮我!