* also allow TValue.AsExtended for Integer types

git-svn-id: trunk@43772 -
2025-04-12 08:49:33 +02:00 · 2019-12-24 21:29:47 +00:00 · 2019-12-24 21:29:47 +00:00 · 12ae68f503
commit 12ae68f503
parent a20209e691
1 changed files with 2 additions and 0 deletions
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@ -1834,6 +1834,8 @@ begin
      raise EInvalidCast.Create(SErrInvalidTypecast);
    end;
    end
+  else if Kind in [tkInteger, tkInt64, tkQWord] then
+    Result := AsInt64
  else
    raise EInvalidCast.Create(SErrInvalidTypecast);
 end;