hedgewars/uLocale.pas
changeset 15991 4ad8dd66d9d5
parent 15990 79b1129b4d03
--- a/hedgewars/uLocale.pas	Mon Jun 19 14:09:37 2023 +0200
+++ b/hedgewars/uLocale.pas	Thu Jun 22 09:13:50 2023 +0200
@@ -166,7 +166,7 @@
 
         // Replace % sign in argument with ASCII ESC
         // to prevent infinite loop below.
-        curArg:= StringReplace(curArg, '%', Char($1B), [rfReplaceAll]);
+        ReplaceChars(curArg, '%', Char($1B));
 
         repeat
         p:= Pos('%'+IntToStr(i+1), tempstr);
@@ -178,7 +178,7 @@
         until (p = 0);
     end;
 
-tempstr:= StringReplace(tempstr, Char($1B), '%', [rfReplaceAll]);
+ReplaceChars(tempstr, Char($1B), '%');
 Format:= tempstr;
 end;
 
@@ -204,7 +204,7 @@
 
         // Replace % sign in argument with ASCII ESC
         // to prevent infinite loop below.
-        curArg:= StringReplace(curArg, '%', Char($1B), [rfReplaceAll]);
+        ReplaceCharsA(curArg, '%', Char($1B));
 
         repeat
         p:= Pos('%'+IntToStr(i+1), tempstr);
@@ -216,7 +216,7 @@
         until (p = 0);
     end;
 
-tempstr:= StringReplace(tempstr, Char($1B), '%', [rfReplaceAll]);
+ReplaceCharsA(tempstr, Char($1B), '%');
 FormatA:= tempstr;
 end;