瀏覽代碼

* Merging revisions 414 from trunk:
------------------------------------------------------------------------
r414 | michael | 2019-03-18 12:29:40 +0100 (Mon, 18 Mar 2019) | 1 line

* Fix stringreplace with + char.
------------------------------------------------------------------------

michael 6 年之前
父節點
當前提交
8f802a67ff
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/rtl/sysutils.pas

+ 1 - 1
packages/rtl/sysutils.pas

@@ -2135,7 +2135,7 @@ begin
 end;
 end;
 
 
 Const
 Const
-  RESpecials = '([\[\]\(\)\\\.\*])';
+  RESpecials = '([\+\[\]\(\)\\\.\*])';
 
 
 function StringReplace(aOriginal, aSearch, aReplace: string;
 function StringReplace(aOriginal, aSearch, aReplace: string;
   Flags: TStringReplaceFlags): String;
   Flags: TStringReplaceFlags): String;