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
FindCmdLineSwitch
Функция
Определяет, был передан некоторый параметр выключатель SysUtils unit
  
1 function FindCmdLineSwitch ( const SwitchValue : string ) : Boolean;

2 function FindCmdLineSwitch ( const SwitchValue : string; IgnoreCase : Boolean ) : Boolean;

3 function FindCmdLineSwitch ( const SwitchValue : string; SwitchChars : TSysCharSet; IgnoreCase : Boolean ) : Boolean;
Описание
Функция FindCmdLineSwitch просматривает командную строку (программа + параметры испольльзуются для вызова текущей программы) для данного параметра выключателя.

Выключатели - дополнительные параметры, предустановленные:

/ для Windows - для Linux

но может быть определен в SwitchChars в 3 Версии функции.

SwitchValue следует за этим префиксным символом, и является значением просмотриваемым в командной строке этой функцией.

Параметр IgnoreCase в 2, 3 Версиях функции определяет, игнорирует ли просмотр регистр SwitchValue. Значение по умолчанию Истинно.
Похожие команды
CmdLine  Содержит выполняемый текст используемый при запуске текущей программы

ParamCount  Выдает число параметров переданной текущей программе

ParamStr  Возвращается один из параметров используемых для запуска текущей программы

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

 
Пример кода : Поиск параметров программы 3-х выключателей
begin
  // Перед выполнением этого кода, используйте опцию меню Run/parameters
  // для установки следующих параметров командной строки: /def abc /ghi
  ShowMessage(CmdLine);     // Показ выполняемой команды + параметры

  // Сколько параметров было передано?
  ShowMessage(IntToStr(ParamCount)+' параметров');

  // Сканирование на параметры parm1, parm2 и parm3
  if FindCmdLineSwitch('abc')
  then ShowMessage('abc найден')
  else ShowMessage('abc НЕ найден');

  if FindCmdLineSwitch('def')
  then ShowMessage('def найден')
  else ShowMessage('def НЕ найден');

  if FindCmdLineSwitch('ghi')
  then ShowMessage('ghi найден')
  else ShowMessage('ghi НЕ найден');
end;

"C:\Program files\Borland\Delphi7\Projects\Project1.exe" /def abc /ghi
3 параметра
abc НЕ найден
def найден
ghi найден
 



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