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

git-svn-id: trunk@22464 -

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;