paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

const array - reducing unnecessary data copying

Browse Source
This commit is contained in:
Alligator-1 2024-07-07 20:02:16 +05:00 committed by Michael Van Canneyt
parent e87982e925
commit 326073512d
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/sysutils/sysstr.inc
View File

@ -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

4
rtl/objpas/sysutils/sysstrh.inc
View File

@ -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;

4
rtl/objpas/sysutils/sysutilh.inc
View File

@ -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 }

4
rtl/objpas/sysutils/sysutils.inc
View File

@ -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);