const array - reducing unnecessary data copying

rtl/objpas/sysutils/sysstr.inc

@@ -1183,13 +1183,13 @@ begin
   Result:=Format(Fmt,Args,DefaultFormatSettings);
 end;
 
-function SafeFormat (const Fmt: AnsiString; Args: array of const): UTF8String;
+function SafeFormat (const Fmt: AnsiString;const Args: array of const): UTF8String;
 
 begin
   Result:=SafeFormat(Fmt,Args,DefaultFormatSettings);
 end;
 
-function SafeFormat (const Fmt: AnsiString; Args: array of const; const FormatSettings: TFormatSettings): UTF8String;
+function SafeFormat (const Fmt: AnsiString;const Args: array of const; const FormatSettings: TFormatSettings): UTF8String;
 
 begin
   try

rtl/objpas/sysutils/sysstrh.inc

@@ -352,5 +352,5 @@ Type
   TStringBuilder = TUnicodeStringBuilder;
 {$ENDIF}
 
-function SafeFormat (const Fmt: AnsiString; Args: array of const; const FormatSettings: TFormatSettings): UTF8String; overload;
-function SafeFormat (const Fmt: AnsiString; Args: array of const): UTF8String; overload;
+function SafeFormat (const Fmt: AnsiString;const Args: array of const; const FormatSettings: TFormatSettings): UTF8String; overload;
+function SafeFormat (const Fmt: AnsiString;const Args: array of const): UTF8String; overload;

rtl/objpas/sysutils/sysutilh.inc

@@ -405,8 +405,8 @@ const
 Type
   TUTF8StringDynArray = Array of UTF8String;
 
-Function ArrayOfConstToStr(Args: array of const ; aSeparator : Char = ','; aQuoteBegin : Char = '"'; aQuoteEnd : Char = '"') : UTF8String;
-Function ArrayOfConstToStrArray(Args: array of const) : TUTF8StringDynArray;
+Function ArrayOfConstToStr(const Args: array of const ; aSeparator : Char = ','; aQuoteBegin : Char = '"'; aQuoteEnd : Char = '"') : UTF8String;
+Function ArrayOfConstToStrArray(const Args: array of const) : TUTF8StringDynArray;
 
 { Delphi compatibility }
 

rtl/objpas/sysutils/sysutils.inc

@@ -909,7 +909,7 @@ begin
 end;
 {$ENDIF}
 
-Function ArrayOfConstToStrArray(Args: array of const) : TUTF8StringDynArray;
+Function ArrayOfConstToStrArray(const Args: array of const) : TUTF8StringDynArray;
 
 var
   i: Integer;
@@ -973,7 +973,7 @@ begin
     end;
 end;
 
-Function ArrayOfConstToStr(Args: array of const ; aSeparator : Char = ','; aQuoteBegin : Char = '"'; aQuoteEnd : Char = '"') : UTF8String;
+Function ArrayOfConstToStr(const Args: array of const ; aSeparator : Char = ','; aQuoteBegin : Char = '"'; aQuoteEnd : Char = '"') : UTF8String;
 
   Procedure Add(s: UTF8String);