本文整理自网络,侵删。
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 2009 indy10 idhttp get 中文出现乱码的问题
Delphi中write,read,writeln和readln的用法
Delphi有用的函数extractfilename、extractfilepath
更多相关阅读请进入《Delphi》频道 >>