Selaa lähdekoodia

* Take into beginning begin and end of string in LIKE match

Michaël Van Canneyt 1 vuosi sitten
vanhempi
commit
ac76071d00
1 muutettua tiedostoa jossa 1 lisäystä ja 0 poistoa
  1. 1 0
      packages/fcl-base/src/fpexprpars.pas

+ 1 - 0
packages/fcl-base/src/fpexprpars.pas

@@ -3295,6 +3295,7 @@ begin
     S:=TJSString(S).replace(TJSRegexp.new(RESpecials,'g'),'\$1');
     S:=StringReplace(S,'%','(.*)',[rfReplaceAll]);
     S:=StringReplace(S,'_','(.)',[rfReplaceAll]);
+    S:='^'+S+'$';
     try
       // Writeln('Ex: ',FLast,' -> ',S);
       FRE:=TJSRegexp.New(S,'i');