浏览代码

Minor cleanup.

Martijn Laan 2 月之前
父节点
当前提交
1e47eb0f0e
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      Components/ISSigFunc.pas

+ 1 - 1
Components/ISSigFunc.pas

@@ -146,7 +146,7 @@ begin
     as any non-ASCII characters (to avoid any possible issues with converting
     invalid multibyte characters) }
   for var C in U do
-    if not CharInSet(C, [#10, #13, #32..#126]) then
+    if not (CharInSet(C, [#10, #13]) or CharInSet(C, NonControlASCIICharsSet)) then
       Exit('');
 
   Result := String(U);