请问：如何将Query产生的数据保存到一个文本文件里？

Question

并且字段之间用制表符分格，谢谢！

Answer 1

procedure tform1.button1click(sender:tobject);
var 
  f:textfile;
  str1,str2,str3:string;
begin 
  query1.open;
  query1.first; 
  assignfile(f,'c:\windows\desktop\test.txt');
  rewrite(f);
  while not query1.eof do
  begin
    str:=query1.params[0].asstring;
    str:=query1.params[1].asstring;
    str:=query1.params[1].asstring;
    writeln(f,str1+#13+str2+#13+str3);
    query1.next;
  end;
  closefile(f);
end;

Answer 2

我不知道你字段中内容的类型, 先假设为string, 如果是其他类型, 你自己改就是了.procedure Tform1.button1click(sender:Tobject);
var 
  f: textfile;
  i: integer;
  temps: string;
begin 
  query1.open;
  query1.first; 
  assignfile(f,'c:\windows\desktop\test.txt');
  rewrite(f);
  query1.DisableControl;
  while not query1.eof do
  begin
    temps:='';
    for i:=0 to query1.FieldCount-1 do
      temps:=temps+query1.Fields[i].asstring+'|';
    writeln(f, temps);
    query1.next;
  end;
  query1.EnableControl;
  closefile(f);
end;

Answer 3

反正能写入txt的都能用dataset.fields[i].asstring来cast的（包括数字，memo） ；
by the way，delphi里各种FieldType(37种)，各位有没有都试过，能否转string；
好比ftGuid,试不出。

Answer 4

何不保存为xml，导出导入时都用。