Now using TPerlRegEx.EscapeRegExChars for escaping

Embarcadero · May 6, 2021 · 7f615b6 · 7f615b6
1 parent f58a6f5
commit 7f615b6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Source/ObjectSpace/Ocl/BoldOclSymbolImplementations.pas b/Source/ObjectSpace/Ocl/BoldOclSymbolImplementations.pas
@@ -30,6 +30,7 @@ implementation
   BoldSubscription,
   BoldValueSpaceInterfaces,
   System.RegularExpressions,
+  System.RegularExpressionsCore,
   BoldIsoDateTime;
 
 var
@@ -3043,8 +3044,7 @@ procedure TBOS_AllSubClasses.Evaluate(const Params: TBoldOclSymbolParameters);
 
 function EscapeRegEx(const ASource: string): string;
 begin
-  result := StringReplace(ASource, '[', '\[', [rfReplaceAll]);
-  result := StringReplace(result, '%', '', [rfReplaceAll]);
+  result := TPerlRegEx.EscapeRegExChars(ASource);
 end;
 
 procedure TBOS_SQLLike.Evaluate(const Params: TBoldOclSymbolParameters);