Question

delphi 动态创建的组件释放不了内存

procedure getipl;
var
ado:TADOQuery;
begin
ado:=TADOQuery.Create(nil);
ado.Connection :=Form1.ADOConnection1;
Form1.ADOConnection1.Connected :=True;

.......
ado.free;
//freeandnil(ado); 这个也不行
end;
用try... finally最后释放也不真正释放，执行多次这个过程程序占用内存就一直增加

真是郁闷，怎么回事呢?

Answer 1

用finally释放代码没有问题的，把包含ADO的所有代码都放在try下面。不管try下面代码有没有出错或过早退出finally总会执行的。你在这段代码后再使用一下ADO，能用的话就是还没释放，不能用就是释放了。
建议你把省略的代码贴出来，要不看不出原委呵呵。

Answer 2

代码不完全，不过也算释放内存了阿。你把ado置空一下看看。
就是 ADO:= nil;

Answer 3

ado.free释放内存没有问题，导致内存没有释放的是你省略部分的代码。

Answer 4

先close关闭查询
等与数据连接中断后，在释放所有资源

Answer 5

代码不完全，不过也算释放内存了阿。你把ado置空一下看看。
就是 ADO:= nil; ...