Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放

Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放

 1、OLEVariant 的空值判定

1
2
3
4
5
6
7
8
9
var
  v: OLEVariant;
begin
  v := 'TaoRoy 2023';
  if VarIsEmpty(v) or VarIsNull(v) then
    ShowMessage('v 为空 或 null.')
  else
    ShowMessage('v 不为空或 null.');
end;
  • VarIsEmpty 函数用于判断 Variant 类型的值是否为空值,
  • VarIsNull 函数用于判断 Variant 类型的值是否为 Null 值。

2、释放 OLEVariant 类型的值

2.1 方式1:

1
2
3
4
5
6
var
  v: OLEVariant;
begin
  v := 'TaoRoy 2023';
  VarClear(v); // 释放 v 所引用的 Variant 对象
end;

2.2 方式2:

1
2
3
4
5
6
var
  v: OLEVariant;
begin
  v := 'TaoRoy 2023';
  v := Unassigned; // 释放 v 所引用的 Variant 对象
end;

  

  

 

 

 

创建时间:2023.06.02  更新时间:

posted on   滔Roy  阅读(385)  评论(0编辑  收藏  举报

相关博文:
阅读排行:
· 我干了两个月的大项目,开源了!
· 推荐一款非常好用的在线 SSH 管理工具
· 聊一聊 操作系统蓝屏 c0000102 的故障分析
· 千万级的大表,如何做性能调优?
· .NET周刊【1月第1期 2025-01-05】
历史上的今天:
2020-06-02 Delphi System.StrCopy 复制Char 字符串
2020-06-02 Delphi XE10 IdTCPClient和IdTCPServer 通讯编码规则写法(Indy 10)(编码乱码)

导航

点击右上角即可分享
微信分享提示