百分求帮忙，有没有人知道在delphi6里怎么实现把数据导出成TXT文档？

Question

请各位帮帮忙好不好，做不出来我就要挨领导批了，有没有人知道在delphi6里怎么实现把数据导出成TXT文档，我上网去找，也没找到合适的代码，有个QRTextFilter控件，用的上吗，我不知该怎么使，帮帮忙吧。

Answer 1

详细一点，是将表里的数据导成TXT文件，还是将QR的内容导成TXT文件？

Answer 2

procedure TForm1.Button2Click(Sender: TObject);
//读text文件
var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    //Edit1.Text := S;                     { Put string in a TEdit control }
    memo1.Lines.Add(s);
    CloseFile(F);
  end;end;procedure TForm1.Button3Click(Sender: TObject);
//向txt文件些内容
var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Rewrite(F);
    Write(F, 'Hello, Helmet');
    CloseFile(F);
  end;
end;

Answer 3

这是我在项目中用的，是把数据集数据按规定的格式写入txt文件。
var
  Txt: TextFile;
  Line: string;
begin
  if not aqPrinter.Active then Exit;
  DataFile := GWorkDir + '\' + InterFaceModule + '\Data\' + FormatDateTime('YYYYMMDDHHMMSS', Now) ＋ '.txt'；  AssignFile(Txt, DataFile);
  try
    ReWrite(Txt);
    aqPrinter.DisableControls;
    aqPrinter.First;
    while (not aqPrinter.Eof) do
    begin
      Line := aqPrinter.FieldByName('DM').AsString + '~~' +
        aqPrinter.FieldByName('HM').AsString + '~~' +
        aqPrinter.FieldByName('GF').AsString + '~~' +
        aqPrinter.FieldByName('XF').AsString + '~~' +
        aqPrinter.FieldByName('KR').AsString + '~~' +
        aqPrinter.FieldByName('JE').AsString + '~~' +
        aqPrinter.FieldByName('SE').AsString + '~~' +
        aqPrinter.FieldByName('RZSJ').AsString + '~~' ;
      Writeln(Txt, Line);
      aqPrinter.Next;
      
    end;
  finally
    CloseFile(Txt);
  end;
  aqPrinter.EnableControls;
end;

Answer 4

用个while not eof do 循环把数据一条一条写入文本即可，简单得很，不用啥子控件

Answer 5

把我的代码放在Button的Click事件中去，修改DataFile为你要的名字就可以了阿。

Answer 6

太谢谢“空”了！我用的是ACCESS，如果用自带的Paradox数据库呢，有分别吗？

Answer 7

用ACCESS：
ADO指向TXT：
ADOQUERY：
select * into zqqq1.TXT from QQ in "d:\TEMP\TE.mdb" "jet 3.x;"

Answer 8

sundayboysII(空) 的不错,我也是这样做的!

Answer 9

我非常感谢“空”的帮助，领导比较满意，我还想问一下，GWorkDir 和InterFaceModule 是什么，为什么我编译不过去呢，我怎么才能点击这个按钮后弹出个对话框，让我自己填写文本的名字呢，能实现吗？

Answer 10

增加TOpenDialog
if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    ...
  end;
GWorkDir和InterFaceModule是他定义的变量
GWorkDir是工作路径
InterFaceModule接口模式
它是按不同的要求存储不同的路径