写代码吧，先用Dataset类控件读出表中数据，然后按如下代码写：
var
f : System.TextFile; // 文本文件类型
s:string;
i: Integer;
begin
AssignFile(f,'test.text');
Rewrite(f);
// 往文件中写入下面的内容
With Dataset do
While not Eof do
begin
s:='';
for i:=0 to fieldcount-1 do s:=s+Fields[0].asString+' '; //将各字段内容填入字符串
Writeln(f,s); //将字符串写入文件
next;
end;
end;
