如何将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; 如何统计文章词频? 自定义类的问题 delphi中属性编辑器效果自己能做到么?怎样得到? 多个客户端同时从服务器端下载一个文件,下面代码流程是否有问题? 串口发十六进制数据char($FD)的问题 请问什么地方能够下载到在GRID里面随意嵌套CHECKBOX的控件(FOR DELPHI6)? 使用过程的奇怪现象????快帮忙看看 各位,为了交流方便,共同进步,留下自己的信息和联系方式好吗? 初学者的两个问题,谢谢! 怪怪的问题,嘿嘿,, 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;