这是一个简单的代码:
procedure Test;
var
V: OleVariant;
begin
V := CreateOleObject('ADOX.Catalog');
try
// do something with V...
finally
V := Unassigned; // do we need this?
end;
end;
我们是否需要在最后使用V := Unassigned
代码,或者当V
存在于Test
的范围内时,它是空闲的> 程序?
在 VB 中,将变量设置为 Nothing。我们需要在这里做同样的事情吗?
即:
function VarNothing: IDispatch;
// emulate VB function SET VarX = Nothing
var
Retvar: IDispatch;
begin
Retvar := nil;
Result := Retvar;
end;
// do something with V and finally:
V := VarNothing;
最佳答案
OleVariant
超出范围时会自动释放接口(interface)。如果您需要更快地发布,您可以为 OleVariant
分配一个新值。
关于delphi - 使用 CreateOleObject 后释放 OleVariant,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8314183/