# HG changeset patch # User Wuzzy <Wuzzy2@mail.ru> # Date 1541170138 -3600 # Node ID af203fb307a7bb5989c5d315339f54e65db34eb5 # Parent a173557250a3667c733feb562e12807c33ed1344 Typecast the ASCII ESC char diff -r a173557250a3 -r af203fb307a7 hedgewars/uUtils.pas --- a/hedgewars/uUtils.pas Fri Nov 02 14:33:05 2018 +0100 +++ b/hedgewars/uUtils.pas Fri Nov 02 15:48:58 2018 +0100 @@ -264,7 +264,7 @@ i:= Pos(e, a); if (i > 1) and (a[i - 1] = '\') then begin - a[i]:= $1B; // ASCII ESC + a[i]:= Char($1B); // ASCII ESC Delete(a, i - 1, 1); end else @@ -278,7 +278,7 @@ var i: LongInt; begin repeat - i:= Pos($1B, a); // ASCII ESC + i:= Pos(Char($1B), a); // ASCII ESC if (i > 0) then begin a[i]:= e;