[JVCL-Checkins] dev/JVCL3/run JvJCLUtils.pas,1.110,1.111 - Update

[Andreas H. <ah...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4450/run

Modified Files:
	JvJCLUtils.pas 
Log Message:
Update


Index: JvJCLUtils.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvJCLUtils.pas,v
retrieving revision 1.110
retrieving revision 1.111
diff -C2 -d -r1.110 -r1.111
*** JvJCLUtils.pas	4 Jun 2004 13:00:03 -0000	1.110
--- JvJCLUtils.pas	4 Jun 2004 13:05:53 -0000	1.111
***************
*** 1176,1181 ****
  function VarIsInt(Value: Variant): Boolean;
  begin
!   Result := FindVarData(Value)^.VType in [varSmallInt, varInteger, varShortInt,
!     varByte, varWord, varLongWord, varInt64];
  end;
  
--- 1176,1184 ----
  function VarIsInt(Value: Variant): Boolean;
  begin
!   Result := VarType(Value) in [varByte,
!     {$IFDEF COMPILER6_UP}
!     varShortInt, varWord, varLongWord, {varInt64,}
!     {$ENDIF COMPILER6_UP}
!     varSmallInt, varInteger];
  end;