From b0997aea42fec0c08b55010dedcaa6a8cfd944d0 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 28 Dec 2020 11:51:21 +0000
Subject: [PATCH] * Fix StringReplace not working on ? (bug ID 38224)

---
 packages/rtl/sysutils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl/sysutils.pas b/packages/rtl/sysutils.pas
index 7213f68..7fdeaad 100644
--- a/packages/rtl/sysutils.pas
+++ b/packages/rtl/sysutils.pas
@@ -2919,7 +2919,7 @@ begin
 end;
 
 Const
-  RESpecials = '([\$\+\[\]\(\)\\\.\*\^])';
+  RESpecials = '([\$\+\[\]\(\)\\\.\*\^\?])';
 
 function StringReplace(aOriginal, aSearch, aReplace: string;
   Flags: TStringReplaceFlags): String;