频道分类

Delphi 判断是否为空('None', 'Null', '')

作者:admin 来源: 日期:2020/6/25 10:03:09 人气: 标签:

 
function VarStrEmpty(v:Variant):Boolean;
var
  data:PVarData;
begin
    data := FindVarData(V);
  case data^.VType of
     varOleStr:
            result := (data^.VOleStr^=#0);
     varString:
            result := (data^.VString=nil);
     varUString:
            result := (data^.VUString=nil);
     else
      result := false;
  end;
end;

来源:https://www.it1352.com/624354.html