如何将一个*.db数据库文件中的内容写在*.txt文件中？

Question

如何将一个*.db数据库文件中的内容写在*.txt文件中？
*.db数据库，例如：为一个delphi自带的数据库。
怎么编程实现？？？

Answer 1

用一个QUERY先联接好数据源，用以下代码：
procedure TfmMain.BtnTextClick(Sender: TObject);
var
    f:textfile;
    s,s1:String;
begin
    if not SaveDialog1.Execute
    then
     exit;    s1:=SaveDialog1.FileName;
    AssignFile(f,s);
    ReWrite(f);
    with QryDo Do
    try
        Close;
        Sql.Clear;
        Sql.Add('select * from table1');
        open;        while not eof do
        begin
            s:=Format('%s  %s  %s',
                  [FieldByName('field1').AsString,
                   FieldByName('field2').AsString,
                   FieldByName('field3').AsStyring]);
            writeln(f,s);
            next;
        end;
    except
    end;    CloseFile(f);
    ShowMessage('倒出数据成功！');
end;

Answer 2

AssignFile(f,s);应该是AssignFile(f,s1);