paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 13:31:14 +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

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

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