Browse Source

* 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 12 years ago
parent
commit
ba7fc58bed
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/sysutils/sysstrh.inc

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

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