paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:50:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ VarIsBool function by Alexander Strokach, resolves #23358

Browse Source 
git-svn-id: trunk@23038 -
This commit is contained in:
florian 2012-11-20 20:30:08 +00:00
parent 31fa3c9db2
commit fcc6d3dcd9
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/variants.pp
View File

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