* tkQWord is considered an ordinal as well

git-svn-id: trunk@36911 -

packages/rtl-objpas/src/inc/rtti.pp

@@ -606,7 +606,7 @@ end;
 
 function TValue.IsOrdinal: boolean;
 begin
-  result := Kind in [tkInteger, tkInt64, tkBool];
+  result := Kind in [tkInteger, tkInt64, tkQWord, tkBool];
 end;
 
 function TValue.AsBoolean: boolean;