paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 01:09:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make string argument const.

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-02 15:25:02 +01:00
parent cda64d090e
commit c49123086d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/vcl-compat/src/system.regularexpressionscore.pp
View File

@ -72,7 +72,7 @@ type
Type Type
TTransformation = (tNone,tLowerCase,tUpperCase,tFirstCap,tInitialCap); TTransformation = (tNone,tLowerCase,tUpperCase,tFirstCap,tInitialCap);
class function TransForm(aTransform: TTransformation; S: TREString): TREString; class function TransForm(aTransform: TTransformation; const S: TREString): TREString;
private private
{$IFDEF USEWIDESTRING} {$IFDEF USEWIDESTRING}
FCode : Ppcre2_code_16; FCode : Ppcre2_code_16;
@ -988,7 +988,7 @@ begin
Result:=Group; Result:=Group;
end; end;
Class function TPerlRegEx.TransForm(aTransform : TTransformation; S : TREString): TREString; Class function TPerlRegEx.TransForm(aTransform : TTransformation; const S : TREString): TREString;
begin begin
Case aTransform of Case aTransform of