处理空值转换字符串的问题 nulltostring
function NullToSpace(V: OleVariant):String; var S: String; begin if VarIsNull(V) then S := ' ' else S := V; Result := S; end; function NullToZero(V: OleVariant): integer; var i: Integer; begin if VarIsNull(V) then i := 0 else i := V; Result := i end; 也可以使用函数: vartostrdef(qry.FieldValues['ljbh'],''),如果是null,将直接按第2个参数返回。如果不是就按原值。 function VarToStrDef(const V: Variant; const ADefault: string): string; begin if not VarIsNull(V) then Result := V else Result := ADefault; end; 来源: https://www.cnblogs.com/samsonleung/p/3758767.html