if Table.FieldByName('').isnull then str := '' else str := Table.FieldByName('').AsString;
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;
str := ''
else
str := Table.FieldByName('').AsString;
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;
很简捷啊
呵呵