X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Fshared%2Futils.pas;h=4c4db7b0df59997698bca6e3d5861cb9ba9a01a0;hp=867f0dcbef1befffb33b7d3a66cc40b57eeb360e;hb=8e694e6ddeb42110a00233d7ff7345c57ee5d90d;hpb=15184bfc2ef78bd2d9a7b7166bc6b4c97f82b037

diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index 867f0dc..4c4db7b 100644
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
@@ -87,6 +87,7 @@ function int64ToStrComma (i: Int64): AnsiString;
 
 function upcase1251 (ch: AnsiChar): AnsiChar; inline;
 function locase1251 (ch: AnsiChar): AnsiChar; inline;
+function IsPrintable1251 (ch: AnsiChar): Boolean;
 
 function toLowerCase1251 (const s: AnsiString): AnsiString;
 
@@ -961,6 +962,11 @@ begin
   result := ch;
 end;
 
+function IsPrintable1251 (ch: AnsiChar): Boolean;
+begin
+  result := (ch >= #32) and (ch <> #127)
+end;
+
 
 function strEquCI1251 (const s0, s1: AnsiString): Boolean;
 var