|
@@ -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;
|