动态创建的控件释放的问题？ ( 积分: 200 )

嗯。搞定，谢谢各位。尤其谢谢aerobull.

如果，你实在是想坚持你的想法：你这样。
========================================================
function aa(var q:TADOQuery):Boolean;
begin
result:=False;
q.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:/ATest/db1.mdb;Persist Security Info=False';
q.Close;q.SQL.Clear;
q.SQL.Add('') ;
q.Open;
if not q.IsEmpty then
begin
{.............}
Resulr:=true;
end;
end;

//这样调用，就可以释放掉TADOQuery了
procedure TForm1.Button1Click(Sender: TObject);
var
q0:TADOQuery;
A:boolean;
begin
q0:=TADOQuery.Create(nil);//动态创建
{..............}

A:=aa(q0);
{...............}
q0.Free;//释放掉了
end;
========================================================
记住用函数传递变量TADOQuery ；这样够造的aa(var q:TADOQuery):

多人接受答案了。

你真傻冒！反正我从来没有这样做过。

靠！白忙活了。

不好意思哦。我发分的时候，listhano兄还没有贴上来。
也不至于如此耿耿于怀吧。
傻冒的人多了，也许你做过的傻冒的事情不比我少。我还有2000多分，想要您老说话。