From eb18be73605de4028e8b98ae8392330f783f9b12 Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Wed, 6 Jan 2021 09:52:10 -0300
Subject: [PATCH] =?UTF-8?q?Come=C3=A7ando=20a=20implementa=C3=A7=C3=A3o=20?=
 =?UTF-8?q?do=20RTTI=20Record.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 packages/rtl/rtti.pas | 44 ++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 41 insertions(+), 3 deletions(-)

diff --git a/packages/rtl/rtti.pas b/packages/rtl/rtti.pas
index 9a516a1..6dbf186 100644
--- a/packages/rtl/rtti.pas
+++ b/packages/rtl/rtti.pas
@@ -248,7 +248,7 @@ type
     FMethods: TRttiMethodArray;
     FProperties: TRttiPropertyArray;
   protected
-    function GetAncestor: TRttiStructuredType; virtual; abstract;
+    function GetAncestor: TRttiStructuredType; virtual;
     function GetStructTypeInfo: TTypeInfoStruct;
   public
     constructor Create(ATypeInfo: PTypeInfo);
@@ -274,9 +274,10 @@ type
     function GetMetaClassType: TClass;
   protected
     function GetAncestor: TRttiStructuredType; override;
+    function GetIsInstance: boolean; override;
   public
     constructor Create(ATypeInfo: PTypeInfo);
-    function GetIsInstance: boolean; override;
+
     property ClassTypeInfo: TTypeInfoClass read GetClassTypeInfo;
     property MetaClassType: TClass read GetMetaClassType;
   end;
@@ -296,6 +297,19 @@ type
     property InterfaceTypeInfo: TTypeInfoInterface read GetInterfaceTypeInfo;
   end;
 
+  { TRttiRecordType }
+
+  TRttiRecordType = class(TRttiStructuredType)
+  private
+    function GetRecordTypeInfo: TTypeInfoRecord;
+  protected
+    function GetIsRecord: Boolean; override;
+  public
+    constructor Create(ATypeInfo: PTypeInfo);
+
+    property RecordTypeInfo: TTypeInfoRecord read GetRecordTypeInfo;
+  end;
+
   { TRttiOrdinalType }
 
   TRttiOrdinalType = class(TRttiType)
@@ -838,6 +852,11 @@ begin
   Result := FProperties;
 end;
 
+function TRttiStructuredType.GetAncestor: TRttiStructuredType;
+begin
+  Result := nil;
+end;
+
 function TRttiStructuredType.GetStructTypeInfo: TTypeInfoStruct;
 begin
   Result:=TTypeInfoStruct(FTypeInfo);
@@ -944,6 +963,25 @@ begin
   Result := GRttiContext.GetType(InterfaceTypeInfo.Ancestor) as TRttiStructuredType;
 end;
 
+{ TRttiRecordType }
+
+function TRttiRecordType.GetRecordTypeInfo: TTypeInfoRecord;
+begin
+  Result := TTypeInfoRecord(FTypeInfo);
+end;
+
+function TRttiRecordType.GetIsRecord: Boolean;
+begin
+  Result := True;
+end;
+
+constructor TRttiRecordType.Create(ATypeInfo: PTypeInfo);
+begin
+  if not (TTypeInfo(ATypeInfo) is TTypeInfoClass) then
+    raise EInvalidCast.Create('');
+  inherited Create(ATypeInfo);
+end;
+
 { TRTTIContext }
 
 class constructor TRTTIContext.Init;
@@ -984,7 +1022,7 @@ var
     nil, // tkMethod
     TRttiType, // tkArray
     TRttiDynamicArrayType, // tkDynArray
-    TRttiType, // tkRecord
+    TRttiRecordType, // tkRecord
     TRttiInstanceType, // tkClass
     TRttiType, // tkClassRef
     TRttiType, // tkPointer
-- 
2.29.2.windows.2