diff --git a/src/shared/utils.pas b/src/shared/utils.pas
index 4c4db7b0df59997698bca6e3d5861cb9ba9a01a0..20706c661dae397f8a0b4914ab00e9caa765a252 100644 (file)
--- a/src/shared/utils.pas
+++ b/src/shared/utils.pas
function upcase1251 (ch: AnsiChar): AnsiChar; inline;
function locase1251 (ch: AnsiChar): AnsiChar; inline;
+function IsValid1251 (ch: Word): Boolean;
function IsPrintable1251 (ch: AnsiChar): Boolean;
function toLowerCase1251 (const s: AnsiString): AnsiString;
result := ch;
end;
+function IsValid1251 (ch: Word): Boolean;
+begin
+ result := (ch = Ord('?')) or (wc2shitmap[ch] <> '?')
+end;
+
function IsPrintable1251 (ch: AnsiChar): Boolean;
begin
result := (ch >= #32) and (ch <> #127)