delphi �C 使用CreateOleObject后释放OleVariant

本文整理自网络，侵删。

 
这是一个简单的代码：
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：=未分配的代码,或者当测试程序的范围存在时,V是否是免费的？
在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将在超出范围时自动释放界面.如果需要尽快发布,可以为OleVariant分配一个新值.

 

相关阅读 >>

Delphi中操作powerpoint幻灯片的示例代码

Delphi 获取当天是星期几，计算两个日期相隔时间

Delphi idhttp 断开连接/超时读取

Delphi xe6开发的android应用实现在线升级完成后自动安装apk代码(加说明)

提供文件操作 单元

Delphi过滤一段字符里面的html代码的函数

Delphi和outputdebugstring

Delphi webbroker iis cgi 的配置

Delphi 随意将函数执行权限提高到ring0源代码

Delphi压缩与解压_不需要特别的控件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi �C 使用CreateOleObject后释放OleVariant