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