delphi中判断是否是null值

标签：

function st_isNull(Value,R: Variant; IsConsiderBlank: Boolean = False): Variant;
var
  str: string;
begin
  Result := Value;
  IF varIsNull(Value) Then Result := R;
  IF VarIsStr(Value) Then
  Begin
    str := Value;
    IF ((IsConsiderBlank) and (Length(Trim(str)) = 0)) Then Result := R;
  end;
end;

delphi中判断是否是null值

标签：

原文地址：http://my.oschina.net/u/582827/blog/505268