paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:59:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* a few const added, mantis #32401

Browse Source 
git-svn-id: trunk@37191 -
This commit is contained in:
marco 2017-09-11 20:49:42 +00:00
parent 84def3e29d
commit 865df88116
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/regexpr/src/regexpr.pas
View File

@ -491,13 +491,13 @@ type
// Split AInputStr into APieces by r.e. occurencies
// Internally calls Exec[Next]
procedure Split (AInputStr : RegExprString; APieces : TStrings);
procedure Split (Const AInputStr : RegExprString; APieces : TStrings);
function Replace (AInputStr : RegExprString;
function Replace (Const AInputStr : RegExprString;
const AReplaceStr : RegExprString;
AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) //###0.946
: RegExprString; {$IFDEF OverMeth} overload;
function Replace (AInputStr : RegExprString;
function Replace (Const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction)
: RegExprString; overload;
{$ENDIF}
@ -513,7 +513,7 @@ type
// Internally calls Exec[Next]
// Overloaded version and ReplaceEx operate with call-back function,
// so you can implement really complex functionality.
function ReplaceEx (AInputStr : RegExprString;
function ReplaceEx (Const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction):
RegExprString;
@ -3914,7 +3914,7 @@ begin
end; { of function TRegExpr.Substitute
--------------------------------------------------------------}
procedure TRegExpr.Split (AInputStr : RegExprString; APieces : TStrings);
procedure TRegExpr.Split (Const AInputStr : RegExprString; APieces : TStrings);
var PrevPos : PtrInt;
begin
PrevPos := 1;
@ -3927,7 +3927,7 @@ procedure TRegExpr.Split (AInputStr : RegExprString; APieces : TStrings);
end; { of procedure TRegExpr.Split
--------------------------------------------------------------}
function TRegExpr.Replace (AInputStr : RegExprString; const AReplaceStr : RegExprString;
function TRegExpr.Replace (Const AInputStr : RegExprString; const AReplaceStr : RegExprString;
AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString;
var
PrevPos : PtrInt;
@ -3947,7 +3947,7 @@ function TRegExpr.Replace (AInputStr : RegExprString; const AReplaceStr : RegExp
end; { of function TRegExpr.Replace
--------------------------------------------------------------}
function TRegExpr.ReplaceEx (AInputStr : RegExprString;
function TRegExpr.ReplaceEx (Const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction)
: RegExprString;
var
@ -3968,7 +3968,7 @@ function TRegExpr.ReplaceEx (AInputStr : RegExprString;
{$IFDEF OverMeth}
function TRegExpr.Replace (AInputStr : RegExprString;
function TRegExpr.Replace (const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction)
: RegExprString;
begin