From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Wed, 13 Nov 2019 13:02:37 +0000 (+0300)
Subject: fix text input validation
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=0a3150d29a82708dd98d73c244e3c1355f8f26c3;p=d2df-sdl.git

fix text input validation
---

diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index 790feb7..948ac69 100644
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
@@ -1021,7 +1021,7 @@ end;
 
 function IsValid1251 (ch: Word): Boolean;
 begin
-  result := ((ch = Ord('?')) or (wc2shitmap[ch] <> '?')) and (ch <> $98)
+  result := ((ch = Ord('?')) or (wc2shitmap[ch] <> '?')) and (wc2shitmap[ch] <> #$98)
 end;
 
 function IsPrintable1251 (ch: AnsiChar): Boolean;