* Patch from Wagner Landgraf to add GetTypeName function (Issue ID 38850)

packages/rtl/typinfo.pas

@@ -336,6 +336,8 @@ type
 
   EPropertyError  = class(Exception);
 
+function GetTypeName(TypeInfo: TTypeInfo): string;
+
 function GetClassMembers(aTIStruct: TTypeInfoStruct): TTypeMemberDynArray;
 function GetClassMember(aTIStruct: TTypeInfoStruct; const aName: String): TTypeMember;
 function GetInstanceMethod(Instance: TObject; const aName: String): Pointer;
@@ -455,6 +457,11 @@ procedure SetRawInterfaceProp(Instance: TObject; PropInfo: TTypeMemberProperty;
 
 implementation
 
+function GetTypeName(TypeInfo: TTypeInfo): string;
+begin
+  Result := TypeInfo.Name;
+end;
+
 function GetClassMembers(aTIStruct: TTypeInfoStruct): TTypeMemberDynArray;
 var
   C: TTypeInfoStruct;