有关TXT文件的问题（送分）(50分)

各位同仁：
请问谁知道怎么把数据库中取出的记录写入TXT文件中，很急定重谢！

先读到剪切板里，再传到TXT文件中。

请告诉我怎么读到剪贴板里，谢谢，最好有源码

先将数据库内容读入memo或richedit控件中，再用控件的savetofile方法。
如：
memo1.txt:=table1.fieldbyname('txt').asstring;
memo1.lines.savetofile('c:/aa.txt');

procedure TForm1.Button1Click(Sender: TObject);
var
strMid: TStringList;
i:integer;
begin
i:=0;
if fileDiag.Execute then
begin
strMid:=TstringList.Create;
while not gzQry.eof do
begin
i:=i+1;
strMid.Add(gzQry.fieldByName('xm').AsString+'|'+
gzQry.fieldByName('zg').AsString+'|'+
gzQry.fieldByName('jg').AsString+'|'+
gzQry.fieldByName('jc').AsString+'|');
gzQry.Next;
end;
strMid.SaveToFile(fileDiag.filename);
showmessage('ok,倒了'+intToStr(i) +'条记录');
end;
end;

编译通过，在delphi5下

你好，谢谢你，按照你的提示，我已经完成了，非常感谢