处理空值转换字符串的问题 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;