引用单元：Variants

函数：VarIsEmpty、VarIsNull

原型：

//VarIsNull 判断Variant变量是否包含一个Null值，例如数据库原始字段值Null

function VarIsNull(const V: Variant): Boolean;
begin
  Result := FindVarData(V)^.VType = varNull;
end;

//VarIsEmpty  判断Variant 变量是否为空

function VarIsEmpty(const V: Variant): Boolean;
begin
  Result := FindVarData(V)^.VType = varEmpty;
end;

引用Variants 后，其实还有两个函数也是可以使用的：

function Unassigned: Variant; // 未赋值的标准常数
function Null: Variant;       // 空 标准常数