From e3f828a8efa1f461b9fd0d1773c238e8ed22faeb Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 25 Sep 2020 11:25:01 +0000
Subject: [PATCH] * Patch from Henrique Werlang to implement TValue.Empty

---
 packages/rtl/rtti.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/rtl/rtti.pas b/packages/rtl/rtti.pas
index 8cda217..9447cdb 100644
--- a/packages/rtl/rtti.pas
+++ b/packages/rtl/rtti.pas
@@ -63,6 +63,7 @@ type
     //ToDo: procedure SetArrayElement(aIndex: SizeInt; constref AValue: TValue);
     function IsType(ATypeInfo: PTypeInfo): boolean;
     function AsJSValue: JSValue;
+    class function Empty: TValue; static;
   end;
 
   TRttiType = class;
@@ -670,6 +671,11 @@ begin
   Result := FData;
 end;
 
+class function TValue.Empty: TValue;
+begin
+  Result.FTypeInfo := nil;
+end;
+
 { TRttiStructuredType }
 
 function TRttiStructuredType.GetMethods: TRttiMethodArray;