# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1541161055 -3600
# Node ID e54f9a85ccbab784ac9169b6f75b78bcea1b280b
# Parent  bc25c5ff2ca219dffed631cb9bc33dacb7f2b983
Use hexadecimal number to represent ASCII ESC

diff -r bc25c5ff2ca2 -r e54f9a85ccba hedgewars/uUtils.pas
--- a/hedgewars/uUtils.pas	Fri Nov 02 12:58:53 2018 +0100
+++ b/hedgewars/uUtils.pas	Fri Nov 02 13:17:35 2018 +0100
@@ -264,7 +264,7 @@
     i:= Pos(e, a);
     if (i > 1) and (a[i - 1] = '\') then
         begin
-        a[i]:= ^[; // ASCII ESC
+        a[i]:= $1B; // ASCII ESC
         Delete(a, i - 1, 1);
         end
     else
@@ -278,7 +278,7 @@
 var i: LongInt;
 begin
 repeat
-    i:= Pos(^[, a); // ASCII ESC
+    i:= Pos($1B, a); // ASCII ESC
     if (i > 0) then
         begin
         a[i]:= e;