Delphi справочник - Форум программистов - Навигация  
 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      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
TSysCharSet
Тип
Символы, используемые снабженной строкой анализирующих функций SysUtils unit
  type TSysCharSet : char;
Описание
Тип 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 найден
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия