如何判断动态的QUERY时候存在

[nizhijie1984]

由于DBgrid中要显示 query(动态创建)不能free ..
如何在另一个事件中判断query是否存在

procedure TForm1.Button1Click(Sender: TObject);
var query:TadoQuery;
var i :integer;
var sqltext :string;
var dstmp :TDataSource;
begin

      query :=TadoQuery.Create(nil);
     query.Connection :=AdoConnection1;
     with query do
     begin
          close;
          sql.clear;
             sql.text := 'select top 10 * from Var_FileGroup ';
          open;
     end;
     dstmp := Tdatasource.Create(nil);
     dstmp.DataSet := query;
     dstmp.AutoEdit := false;
     dbgrid1.datasource := dstmp;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var BeginTime,EndTime:string;
var id :string;
var TmpQuery : TadoQuery;
begin
     WITH QUERY DO
     BEGIN                       //该部分如何判断动态的QUERY是否存在
     END;
END;

[haitao]

var query:TadoQuery;
不要定义在方法里，改为form里

[bdmh]

你定义的是局部的query，其他地方不能访问，定义全局的，
或者，你直接通过grid访问，dbgrid1.datasource.dataset

[w_p_]

在方法外部定义就可以了

[w_p_]

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  query:TadoQuery;