paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:49:09 +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 // Split AInputStr into APieces by r.e. occurencies
// Internally calls Exec[Next] // 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; const AReplaceStr : RegExprString;
AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) //###0.946 AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) //###0.946
: RegExprString; {$IFDEF OverMeth} overload; : RegExprString; {$IFDEF OverMeth} overload;
function Replace (AInputStr : RegExprString; function Replace (Const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction) AReplaceFunc : TRegExprReplaceFunction)
: RegExprString; overload; : RegExprString; overload;
{$ENDIF} {$ENDIF}
@ -513,7 +513,7 @@ type
// Internally calls Exec[Next] // Internally calls Exec[Next]
// Overloaded version and ReplaceEx operate with call-back function, // Overloaded version and ReplaceEx operate with call-back function,
// so you can implement really complex functionality. // so you can implement really complex functionality.
function ReplaceEx (AInputStr : RegExprString; function ReplaceEx (Const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction): AReplaceFunc : TRegExprReplaceFunction):
RegExprString; RegExprString;
@ -3914,7 +3914,7 @@ begin
end; { of function TRegExpr.Substitute end; { of function TRegExpr.Substitute
--------------------------------------------------------------} --------------------------------------------------------------}
procedure TRegExpr.Split (AInputStr : RegExprString; APieces : TStrings); procedure TRegExpr.Split (Const AInputStr : RegExprString; APieces : TStrings);
var PrevPos : PtrInt; var PrevPos : PtrInt;
begin begin
PrevPos := 1; PrevPos := 1;
@ -3927,7 +3927,7 @@ procedure TRegExpr.Split (AInputStr : RegExprString; APieces : TStrings);
end; { of procedure TRegExpr.Split 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; AUseSubstitution : boolean{$IFDEF DefParam}= False{$ENDIF}) : RegExprString;
var var
PrevPos : PtrInt; PrevPos : PtrInt;
@ -3947,7 +3947,7 @@ function TRegExpr.Replace (AInputStr : RegExprString; const AReplaceStr : RegExp
end; { of function TRegExpr.Replace end; { of function TRegExpr.Replace
--------------------------------------------------------------} --------------------------------------------------------------}
function TRegExpr.ReplaceEx (AInputStr : RegExprString; function TRegExpr.ReplaceEx (Const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction) AReplaceFunc : TRegExprReplaceFunction)
: RegExprString; : RegExprString;
var var
@ -3968,7 +3968,7 @@ function TRegExpr.ReplaceEx (AInputStr : RegExprString;
{$IFDEF OverMeth} {$IFDEF OverMeth}
function TRegExpr.Replace (AInputStr : RegExprString; function TRegExpr.Replace (const AInputStr : RegExprString;
AReplaceFunc : TRegExprReplaceFunction) AReplaceFunc : TRegExprReplaceFunction)
: RegExprString; : RegExprString;
begin begin