生肖金银币价值:delphi中如何 加载（loadfromfile）一个.txt文件

来源：百度文库 编辑：中科新闻网 时间：2024/05/12 01:17:36
我现在做的关于连接sqlserver2000数据库的，我写了一个sql语句，但是比较长，需要放在一个.txt文件里面 ，然后在程序中加载这个文件

ADOQuery1.SQL.Text :=? ;

没有那么麻烦

直接写

AdoQuery1.SQL.LoadFromFile('文件名');

这样就行了
SQL属性是TString型，可以直接装载文本文件

procedure TForm1.Button1Click(Sender: TObject);
var
myfile: TextFile;
temp:string;
begin
AssignFile(myfile,'d:\aa.txt');
Reset(myfile);
ADOQuery1.SQL.clear;
while not Eof(myfile) do
begin
Readln(myfile,temp);
adoquer1.sql.add(temp);
end;
end;

原理就是这样了，有什么不妥的地方自己稍改一下就可以了

楼主的法师说的很对！直接装入就可以的.

delphi中如何 加载（loadfromfile）一个.txt文件 delphi 中如何在窗体处于运行状态下删除与加载控件？ delphi中如何调用 DELPHI中如何激活组件 DELPHI中如何调用FROM delphi中如何做基类窗体？ delphi中如何使用combobox？ delphi中如何嵌入网页 delphi中如何嵌入网页？ delphi中如何插入网页