如何将table或query输出为txt文本? 不懂你的问题。输出什么东西? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 自己手动写代码嘛!var s:string;var F:TextFilebeginquery1.First;AssignFile(F,'1.txt');Rewrite(F);While not Query1.Eof dobegin S:=''; For i:=1 to Query1.FieldCount do begin S:=S+Query1.Fields[i].AsString; end; Writeln(F,S); Query1.Next;end; 如何控制菜单弹出位置和弹出方向 怎么把一个静态数组值拷贝给一个动态数组? 怎么样读取outlook express的邮箱(如收件箱)的邮件? TIdTCPServer建立1300多个连接出现hardware error错误 在线急问:关于窗体的显示,请大家帮忙,多谢!!! 请问这条SQL语句怎样写? quickrep的打印问题!!! 怎样按新建按钮,创建一个窗体。。。。? 如何让sql2000的触发器运行后,用户不能再使用该数据库,而且也不再能连接上? 一个非常头痛的问题,高手请进... DBEdit的OnKeyDown事件,空格键的屏蔽? 字符判断问题
var s:string;
var F:TextFile
begin
query1.First;
AssignFile(F,'1.txt');
Rewrite(F);
While not Query1.Eof do
begin
S:='';
For i:=1 to Query1.FieldCount do
begin
S:=S+Query1.Fields[i].AsString;
end;
Writeln(F,S);
Query1.Next;
end;