Delphi тип TSysCharSet – символи, які використовуються наданими функціями аналізу рядка

Delphi тип TSysCharSet – символи, які використовуються наданими функціями аналізу рядка.

Тип TSysCharSet в Delphi: Заміна заданих за замовчуванням символів перемикача синтаксичного аналізу командного рядка 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 НЕ знайдено');

  // Повторне сканування за допомогою * та / як символів префікса перемикання
  switchPrefixes := ['*','/'];
  if FindCmdLineSwitch('abc', switchPrefixes, True)
  then ShowMessage('*abc або /abc знайдено')
  else ShowMessage('*abc і /abc НЕ знайдено');

  if FindCmdLineSwitch('def', switchPrefixes, True)
  then ShowMessage('*def або /def знайдено')
  else ShowMessage('*def і /def НЕ знайдено');
end;