Explorar o código

* declare tsyscharset as a set of ansichar instead of as a set of char
(widechar sets are not (yet?) supported)

git-svn-id: branches/cpstrrtl@24989 -

Jonas Maebe %!s(int64=12) %!d(string=hai) anos
pai
achega
ba7fc58bed
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/objpas/sysutils/sysstrh.inc

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

@@ -241,7 +241,7 @@ const
 {$endif}
 {$endif}
 
 
 Type
 Type
-  TSysCharSet = Set of char;
+  TSysCharSet = Set of AnsiChar;
   PSysCharSet = ^TSysCharSet;
   PSysCharSet = ^TSysCharSet;
 
 
 Function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet;IgnoreCase: Boolean): Boolean;
 Function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet;IgnoreCase: Boolean): Boolean;