Delphi-Help

Описание

type TSysCharSet : char;

Тип TSysCharSet используется как общий тип для того, чтобы установить специальные символы строки, анализирующей функции.

Например, FindCmdLineSwitch может быть сконфигурирован, чтобы искать определяемые пользователем значения символов префикса 'switch' командной строки.

Пример кода

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 найден

Примечание