现在知道变量str中有下列语句:
   query1.close;
   query1.sql.clear;
   query1.sql.add('select * from gzb');
   query1.open;
如何在程序中执行上面的几行
我使用了
str;
此句出错,我应该怎么办?

解决方案 »

  1.   

    procedure Tgzblr.closeaClick(Sender: TObject);
    var f: TextFile;
      s, stl: string;
    begin
      AssignFile(f, 'aa.txt');
      Reset(f);
      stl := '';
      while not Eof(f) do begin
        Readln(f, s);
        stl:=stl+trim(s)+chr(13);
      end;
      showmessage(stl);
      stl;//此句出错,想将aa.txt中的内容显示出来
      CloseFile(f);end;
    其中:aa.txt中有内容如下:   query1.close;
       query1.sql.clear;
       query1.sql.add('select * from gzb');
       query1.open;
      

  2.   

    不懂为什么要这么做..如果要的话你把那些字符串放入一个文件..INI或.TXT都行..然后再READLN读出来..再进行什么操做都可以..甚至可以把字符串放入注册表..然后再读.