With TAdoQuery.create(nil) do try .... finally free; end; //==============================or========================= ... TmpAdoQry:TAdoQuery; ... TmpAdoQry:=TAdoQuery.Create(Application); With TmpAdoQry do begin //=============依次设置各个属性。 //数据处理。 end;
try
....
finally
free;
end;
//==============================or=========================
...
TmpAdoQry:TAdoQuery;
...
TmpAdoQry:=TAdoQuery.Create(Application);
With TmpAdoQry do
begin
//=============依次设置各个属性。
//数据处理。
end;
adoquery....