فهرست منبع

* prevent code page conversion in CharInSet(widechar,tsyscharset)

git-svn-id: trunk@22464 -
Jonas Maebe 13 سال پیش
والد
کامیت
92064356f0
1فایلهای تغییر یافته به همراه1 افزوده شده و 1 حذف شده
  1. 1 1
      rtl/objpas/sysutils/syswide.inc

+ 1 - 1
rtl/objpas/sysutils/syswide.inc

@@ -184,5 +184,5 @@ end;
 
 Function CharInSet(Ch:WideChar;Const CSet : TSysCharSet) : Boolean;
 begin
-  result:=(Ch<=#$FF) and (ansichar(ch) in CSet);
+  result:=(Ch<=#$FF) and (ansichar(byte(ch)) in CSet);
 end;