#8 % char is now removed for SQLLike as TRegEx

works different than original BoldRegularExpression unit.
Sync codechanges from Attracs

Author: Roland Bengtsson

Source/ObjectSpace/Ocl/BoldOclSymbolImplementations.pas

@@ -3044,7 +3044,8 @@ procedure TBOS_AllSubClasses.Evaluate(const Params: TBoldOclSymbolParameters);
 
 function EscapeRegEx(const ASource: string): string;
 begin
-  result := TPerlRegEx.EscapeRegExChars(ASource);
+  result := StringReplace(ASource, '%', '', [rfReplaceAll]);
+  result := TPerlRegEx.EscapeRegExChars(result);
 end;
 
 procedure TBOS_SQLLike.Evaluate(const Params: TBoldOclSymbolParameters);
@@ -3053,7 +3054,10 @@ procedure TBOS_SQLLike.Evaluate(const Params: TBoldOclSymbolParameters);
 begin
   s := XString(Params.values[1]);
   s := EscapeRegEx(s);
-  Help.MakeNewBoolean(Params.Result, TRegEx.IsMatch(XString(Params.values[0]), s));
+  if s = '' then
+    Help.MakeNewBoolean(Params.Result, false)
+  else
+    Help.MakeNewBoolean(Params.Result, TRegEx.IsMatch(XString(Params.values[0]), s));
 end;
 
 procedure TBOS_SQLLikeCaseInSensitive.Evaluate(const Params: TBoldOclSymbolParameters);
@@ -3062,7 +3066,10 @@ procedure TBOS_SQLLikeCaseInSensitive.Evaluate(const Params: TBoldOclSymbolParam
 begin
   s := XString(Params.values[1]);
   s := EscapeRegEx(s);
-  Help.MakeNewBoolean(Params.Result, TRegEx.IsMatch(XString(Params.values[0]), s, [roIgnoreCase]));
+  if s = '' then
+    Help.MakeNewBoolean(Params.Result, false)
+  else
+    Help.MakeNewBoolean(Params.Result, TRegEx.IsMatch(XString(Params.values[0]), s, [roIgnoreCase]));
 end;
 
 procedure TBOS_RegExpMatch.Evaluate(const Params: TBoldOclSymbolParameters);