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 用 superobject 解析淘宝上的 json 数据

Delphi listview基本用法大全

Delphi 返回整数的四种情况

Delphi xe7中stringgrid组件的使用

Delphi 过滤开头 结尾 全部 空格的函数

Delphi firedac mysql 连接

Delphi access技巧集

Delphi �c 使用createoleobject后释放olevariant

Delphi 用代码实现为程序创建快捷方式的二种方法

Delphi datasnap 初步入门使用总结

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...