處理空值轉換字符串的問題 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;