从数据库中导数据(0分)

如何从数据库中导出数据并存储为.txt文件？
能否提供可参考例程？

procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
sLine : string;
F : textfile;
begin
AssignFile(F,'F:/aa.txt');
ReWrite(F);
Table1.First;
while not Table1.Eofdo
begin
sLine := '';
for I := 0 to Table1.FieldCount-1do
begin
sLine := sLine+Table1.Fields.AsString+';';//或者
table1.fields.DisplayText;
end;
WriteLn(F,sLine);
Table1.Next;
end;
CloseFile(F);
end;

管理器中的用向导工具就可以

procedure TForm1.Button1Click(Sender: TObject);
var
txt:textfile;
s1,s2,s3,s4,ss:string;
n:integer;
begin
assignfile(txt,'d:/dd.txt');
rewrite(txt);
table1.Open;
table1.First;
for n:=1 to table1.RecordCountdo
begin
s1:=table1.FieldByName('1').AsString;
s2:=table1.FieldByName('2').AsString;
s3:=table1.FieldByName('3').AsString;
s4:=table1.FieldByName('4').AsString;
ss:=s1+','+s2+','+s3+','+s4;//逗号分割
writeln(txt,ss);
table1.Next;
end;
closefile(txt);
table1.Close;
close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
sline:string;
f:textfile;
begin
assignfile(f,'c:/aa.txt');
rewrite(f);
adotable1.First;
while not adotable1.eofdo
begin
sline:='';
for i:=0 to adotable1.FieldCount-1do
begin
sline:=sline+'#'+trim(adotable1.Fields.asstring);
end;
writeln(f,sline);
adotable1.Next;
end;
closefile(f);
//deletefile('c:/aa.txt');
end;

接受答案了.