* Delphi-compatible ToString for TRttiType. Patch from Lipinast Lekrisov

packages/rtl-objpas/src/inc/rtti.pp

@@ -392,6 +392,7 @@ type
     function GetMethods: TRttiMethodArray; virtual; overload;
     function GetMethods(const aName: string): TRttiMethodArray; overload; virtual;
     function GetMethod(const aName: String): TRttiMethod; virtual;
+    function ToString : RTLString; override;
     property IsInstance: boolean read GetIsInstance;
     property IsManaged: boolean read GetIsManaged;
     property IsOrdinal: boolean read GetIsOrdinal;
@@ -7508,6 +7509,11 @@ begin
   Result := Nil;
 end;
 
+function TRttiType.ToString: RTLString;
+begin
+  Result:=Name;
+end;
+
 function TRttiType.GetMethods(const aName: string): TRttiMethodArray;
 var
   methods: specialize TArray<TRttiMethod>;