From e74034dc34cf3b5978cb27dc90290bc83cb292d4 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 20 Aug 2017 19:50:00 +0000
Subject: [PATCH] * allow making a TValue with a procedure/function or method
 variable

git-svn-id: trunk@36989 -
---
 packages/rtl-objpas/src/inc/rtti.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/rtl-objpas/src/inc/rtti.pp b/packages/rtl-objpas/src/inc/rtti.pp
index baf7a22c92..c002597275 100644
--- a/packages/rtl-objpas/src/inc/rtti.pp
+++ b/packages/rtl-objpas/src/inc/rtti.pp
@@ -547,6 +547,7 @@ type
   PBoolean64 = ^Boolean64;
   PByteBool = ^ByteBool;
   PQWordBool = ^QWordBool;
+  PMethod = ^TMethod;
 begin
   result.FData.FTypeInfo:=ATypeInfo;
   { resets the whole variant part; FValueData is already Nil }
@@ -568,6 +569,8 @@ begin
     tkInterface: result.FData.FValueData := TValueDataIntImpl.CreateRef(ABuffer, ATypeInfo, True);
     tkInt64    : result.FData.FAsSInt64 := PInt64(ABuffer)^;
     tkQWord    : result.FData.FAsUInt64 := PQWord(ABuffer)^;
+    tkProcVar  : result.FData.FAsMethod.Code := PCodePointer(ABuffer)^;
+    tkMethod   : result.FData.FAsMethod := PMethod(ABuffer)^;
     tkInteger  : begin
                    case GetTypeData(ATypeInfo)^.OrdType of
                      otSByte: result.FData.FAsSByte := PShortInt(ABuffer)^;