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　　更新时间：