怎么样把query返回的结果存储成文本文件！？？在线等待！！！！

Question

dbgrid中返回了 query 查询的结果，现在想把所有这些结果存储成文本文件，怎么做（当点击 按钮的时候把结果保存成文本文件）

Answer 1

with adoquery1 do begin
    close;
    sql.clear;
    sql.Add('select top 10 * from authors' );
    open;
    adoquery1.SaveToFile('c:\temp.txt',pfADTG);
  end;

Answer 2

AssignFile(T,'d:\tmp\ygxx'+QuotedStr(DateToStr(Date))+'.txt');
        rewrite(T);
        closeFile(T);
        query1.first;
        i:=0;
        while not query1.eof do
        begin
                Memo1.lines.add(query1.Fields[0].asstring+chr(9)+query1.fields[1].asstring);
                query1.next;
        end;         Memo1.lines.SaveToFile('d:\tmp\ygxx'+QuotedStr(DateToStr(Date))+'.txt');