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

本文整理自网络，侵删。

 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 

相关阅读 >>

Delphi 与360

Delphi加载驱动的代码演示

Delphi pointer 转成string

Delphi tms web core messagedlg对话框 yes no

Delphi memo 控件光标定位

Delphi中使用activex的一些心得

Delphi 合并字符串的函数

Delphi cef4Delphi chromium1 设置user-agent

Delphi listview排序

Delphi injectmemexe

更多相关阅读请进入《Delphi》频道 >>