From 56459594c049b9287154db1554bf18bb8d51099f Mon Sep 17 00:00:00 2001 From: svenbarth Date: Mon, 14 Aug 2017 20:26:55 +0000 Subject: [PATCH] * more complete TValueData record git-svn-id: trunk@36906 - --- packages/rtl-objpas/src/inc/rtti.pp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp index 36385e4c17..b85c8964fc 100644 --- a/packages/rtl-objpas/src/inc/rtti.pp +++ b/packages/rtl-objpas/src/inc/rtti.pp @@ -47,10 +47,17 @@ type 3: (FAsObject: Pointer); 4: (FAsClass: TClass); 5: (FAsSByte: Shortint); + 6: (FAsSWord: Smallint); + 7: (FAsSLong: LongInt); + 8: (FAsSingle: Single); 9: (FAsDouble: Double); 10: (FAsExtended: Extended); + 11: (FAsComp: Comp); 12: (FAsCurr: Currency); + 13: (FAsUInt64: QWord); 14: (FAsSInt64: Int64); + 15: (FAsMethod: TMethod); + 16: (FAsPointer: Pointer); end; { TValue }