Чтение параметров запуска программы

[hon]

У меня такая задача: нужно, чтобы если программа запущена с параметром -7day, выпоолнялся

ShowMessage('123');

иначе

ShowMessage('321');

Я пытался делать

if paramstr(1)='7day' then ShowMessage('123') else ShowMessage('321');

, предварительно ставив такие значения в Run/parameters


Но у меня всегда идет 123.

Что я делаю не так?

[Аватар]

-7day
минус тоже является частью параметра (или что там перед 7)

[Serge_Bliznykov]

Аватар абсолютно прав! +1

и я бы ещё в обязательном порядке добавил проверку:

if ParamCount>0 then
  if AnsiUpperCase(ParamStr(1))='-7DAY' then ....

UpperCase нужен, если регистр параметра не важен (т.е. может быть -7day и -7Day и -7DaY и т.д.)

[hon]

Сообщение от Serge_Bliznykov

Аватар абсолютно прав! +1

и я бы ещё в обязательном порядке добавил проверку:

if ParamCount>0 then
  if AnsiUpperCase(ParamStr(1))='-7DAY' then ....

UpperCase нужен, если регистр параметра не важен (т.е. может быть -7day и -7Day и -7DaY и т.д.)

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

[Serge_Bliznykov]

рискну предположить, что Вы не там проверяете параметры приложения..

Не могли бы вы выложить пример.

Это не просто, а ОЧЕНЬ просто.

извольте - ParamExample.rar

[GunSmoker]

Вообще-то ParamStr даёт параметр "как есть", т.е. вместе с - и в том же регистре.

Поэтому, как минимум надо AnsiUpperCase(ParamStr(1)) = '-7DAY'.

Во-вторых, позиционированная проверка параметров - это плохо. Лучше искать нужный параметр по всем доступным.

В третьих, общепринятое соглашение в Windows - это /param или /param=value (param не чувствительно к регистру), а не -param или --param. И его бы лучше придерживаться, если нет иных соображений.

В-четвёртых, есть такая полезная функция как FindCmdLineSwitch.