5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
whwrb 2002-10-08
- 打赏
- 举报
同意，但是QUERY1中要先存在SQL 语句
QUERY1。SQL。ADD（“”）
QUERY1。SQL。ADD（“”）
guorui_wh 2002-10-08
- 打赏
- 举报
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 try
end;
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 try
end;
