动态建立TADOQuery

[zuozl]

请问下在一个自定义函数里面如:
function IsSatisfyUnitCover(ID:Integer):Boolean;
var
TempAdoQuery:TADOQuery;
begin
TempAdoQuery:=TADOQuery.Create(??);//Create要带一个TComponent的参数，用self不行请问下大家是怎么写的?

end;

[sysu]

TempAdoQuery:=TADOQuery.Create(nil);

[zuozl]

那清除时就要用FreeAndNil了喽？

[sysu]

一般Free就行。

[siyu2002]

try
TempAdoQuery:=TADOQuery.Create(nil);
...
finally
TempAdoQuery.free;
end;

[zuozl]

谢谢大家