Creating method arguments docstr for Sphinx

Author: lmbelo

Source/WrapDelphi.pas

@@ -1158,42 +1158,19 @@ class function TExposedMethodImplementation.MethodDocStr
     if not Assigned(LRttiParameter.ParamType) then
       LArgsStr := LArgsStr + LRttiParameter.Name
     else
-      LArgsStr := LArgsStr + LRttiParameter.Name + '=' + LRttiParameter.ParamType.Name;
+      LArgsStr := LArgsStr
+        + LRttiParameter.Name
+        + ': '
+        + LRttiParameter.ParamType.Name.Replace('T', '', []);
   end;
 
   Result := String.Format(METHOD_DOC_STR_PATTERN, [
     ARttiMethod.Parent.Name, ARttiMethod.Name, LArgsStr]);
 
   if Assigned(ARttiMethod.ReturnType) then
-    Result := Result + ': ' + ARttiMethod.ReturnType.Name;
-
-  //Args:
-  //    param1: The first parameter.
-  //    param2: The second parameter.
-  if Length(ARttiMethod.GetParameters()) > 0 then begin
-    Result := Result + #10 + #10 + 'Args:' + #10;
-    for LRttiParameter in ARttiMethod.GetParameters do begin
-      if Assigned(LRttiParameter.ParamType) then
-        Result := Result + String.Format('    %s (%s)', [LRttiParameter.Name, LRttiParameter.ParamType.Name])
-      else if TParamFlag.pfVar in LRttiParameter.Flags then
-        Result := Result + String.Format('    %s (%s)', [LRttiParameter.Name, 'var'])
-      else if TParamFlag.pfConst in LRttiParameter.Flags then
-        Result := Result + String.Format('    %s (%s)', [LRttiParameter.Name, 'const'])
-      else if TParamFlag.pfOut in LRttiParameter.Flags then
-        Result := Result + String.Format('    %s (%s)', [LRttiParameter.Name, 'out']);
-
-      Result := Result + #10;
-    end;
-  end;
-
-  if Assigned(ARttiMethod.ReturnType) then begin
-    //Returns:
-    //    The return value. True for success, False otherwise.
-
-    Result := Result + #10 + 'Returns:' + #10;
-    Result := Result + String.Format('    Return type: %s', [
-      ARttiMethod.ReturnType.Name]) + #10;
-  end;
+    Result := Result
+      + ' -> '
+      + ARttiMethod.ReturnType.Name.Replace('T', '', []);
 
   Result := Result + #10;
 end;