Browse Source

Removed the GetName implementation because the new RTTI information show the constructor methods with the names correctly.

Henrique Gottardi Werlang 4 months ago
parent
commit
ca98c509f8
1 changed files with 0 additions and 10 deletions
  1. 0 10
      packages/rtl/src/rtti.pas

+ 0 - 10
packages/rtl/src/rtti.pas

@@ -273,8 +273,6 @@ type
     function GetProcedureSignature: TRttiProcedureSignature;
     function GetProcedureSignature: TRttiProcedureSignature;
     function GetReturnType: TRttiType;
     function GetReturnType: TRttiType;
   protected
   protected
-    function GetName: String; override;
-
     property ProcedureSignature: TRttiProcedureSignature read GetProcedureSignature;
     property ProcedureSignature: TRttiProcedureSignature read GetProcedureSignature;
   public
   public
     function GetParameters: TRttiParameterArray;
     function GetParameters: TRttiParameterArray;
@@ -2216,14 +2214,6 @@ begin
   Result := ProcedureSignature.ReturnType;
   Result := ProcedureSignature.ReturnType;
 end;
 end;
 
 
-function TRttiMethod.GetName: String;
-begin
-  Result := inherited;
-
-  if IsConstructor then
-    Result := Result.SubString(0, Result.IndexOf('$'));
-end;
-
 function TRttiMethod.GetProcedureSignature: TRttiProcedureSignature;
 function TRttiMethod.GetProcedureSignature: TRttiProcedureSignature;
 begin
 begin
   if not Assigned(FProcedureSignature) then
   if not Assigned(FProcedureSignature) then