如何保存query中的内容 我的意思是如何把query中的内容保存成一个文件 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var F1:TextFile; Path:string; filename:string; query:TQuery;begin Path:='c:\test.txt';try Assignfile(f1,Path); if FileExists(Path) then DeleteFile(Path); ReWrite(f1); writeln(f1,query1.sql.text);finally CloseFile(f1);end; //end tryend; 同意,但是QUERY1中要先存在SQL 语句QUERY1。SQL。ADD(“”) 在打开窗体时提示:TOrasession类没有找到 反正无聊,送分... 江湖救急!!数组SETLENGTH出错!!大家帮忙看看! 在DELPHI7中如何设置page control的页面数量(无内容),谢谢 请教接口与虚抽象类的真正区别。 散分!!!!! 谁有ACMAUTDIO控件的DEMO,我想要它的WAV->MP3的代码.或谁有WAV2MP3的控件 发送邮件 动态创建的控件,怎样声明它的事件!!!!小乐向高手求救!!! 这里给分怎么那么麻烦????要怎么给呀? 【散分】 我通过代理天天上网来csdn,可是可用分却不长,现在快没有了,怎么办?
F1:TextFile;
Path:string;
filename:string;
query:TQuery;
begin
Path:='c:\test.txt';
try
Assignfile(f1,Path);
if FileExists(Path) then
DeleteFile(Path);
ReWrite(f1);
writeln(f1,query1.sql.text);
finally
CloseFile(f1);
end; //end tryend;
QUERY1。SQL。ADD(“”)