Browse Source

* 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 years ago
parent
commit
8f802a67ff
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/rtl/sysutils.pas

+ 1 - 1
packages/rtl/sysutils.pas

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