| Описание |
Тип TSysCharSet используется как общий тип для того, чтобы установить специальные символы строки, анализирующей функции.
Например, FindCmdLineSwitch может быть сконфигурирован, чтобы искать определяемые пользователем значения символов префикса 'switch' командной строки.
|
|
| Похожие команды |
|
| |
|
| Пример кода : Замена заданных по умолчанию символов переключателя синтаксического анализа командной строки Windows |
var
switchPrefixes : TSysCharSet;
begin
// Перед выполнением этого кода,
используйте опцию меню Run/parameters
// для установки следующих параметров командной строки: *def /abc
ShowMessage(CmdLine); //
Показ команду выполнения + параметры
// Сколько параметров было перередано
ShowMessage(IntToStr(ParamCount)+' параметров');
// Просмотр для abc и def параметров
используемых по умолчанию значения / и -
if FindCmdLineSwitch('abc')
then ShowMessage('/abc найден')
else ShowMessage('/abc НЕ найден');
if FindCmdLineSwitch('def')
then ShowMessage('/def найден')
else ShowMessage('/def НЕ найден');
// Rescan with * and / as the switch prefix characters
switchPrefixes := ['*','/'];
if FindCmdLineSwitch('abc', switchPrefixes, True)
then ShowMessage('*abc или /abc найден')
else ShowMessage('*abc и /abc NOT найден');
if FindCmdLineSwitch('def', switchPrefixes, True)
then ShowMessage('*def или /def найден')
else ShowMessage('*def и /def NOT найден');
end;
|
"C:\Program files\Borland\Delphi7\Projects\Project1.exe" *def /abc
/abc найден
/def НЕ найден
*abc и /abc найден
*def и /def найден
|
|
