+ VarIsBool function by Alexander Strokach, resolves #23358

git-svn-id: trunk@23038 -

rtl/inc/variants.pp

@@ -81,6 +81,7 @@ function VarIsOrdinal(const V: Variant): Boolean; inline;
 function VarIsFloat(const V: Variant): Boolean; inline;
 function VarIsNumeric(const V: Variant): Boolean; inline;
 function VarIsStr(const V: Variant): Boolean;
+function VarIsBool(const V: Variant): Boolean; inline;
 
 function VarToStr(const V: Variant): string;
 function VarToStrDef(const V: Variant; const ADefault: string): string;
@@ -2972,6 +2973,11 @@ begin
   end;
 end;
 
+function VarIsBool(const V: Variant): Boolean;
+begin
+  Result := (TVarData(V).vType and varTypeMask) = varboolean;
+end;
+
 
 function VarToStr(const V: Variant): string;