Creating method arguments docstr for Sphinx

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;