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

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

 1、OLEVariant 的空值判定

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:

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

2.2 方式2:

var
  v: OLEVariant;
begin
  v := 'TaoRoy 2023';
  v := Unassigned; // 释放 v 所引用的 Variant 对象
end;

  

  

 

 

 

创建时间:2023.06.02  更新时间:

posted on 2023-06-02 14:01  滔Roy  阅读(295)  评论(0编辑  收藏  举报

导航