Справочник функций и процедур Delphi: TSysCharSet

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

TSysCharSet
Тип
Символы, используемые снабженной строкой анализирующих функций SysUtils unit
  type TSysCharSet : char;

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

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

 
Пример кода : Замена заданных по умолчанию символов переключателя синтаксического анализа командной строки 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 найден
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook