Добавить ввод данных из командной строки по ключам.

[FomAW]

Добавить ввод номеров месяца и года из командной строки по ключам /M, /Y, например: /M9 /Y2011 – сентябрь 2011 года. Если параметров недостаточно, то запрос на ввод в интерактивном режиме.
Объясните, пожалуйста, как это реализовать?

[ZX Spectrum-128]

Paramcount, paramstr

[FomAW]

......................

Сообщение от ZX Spectrum-128

Paramcount, paramstr

А подробней можно?

[ZX Spectrum-128]

http://delphi-help.ru/index.php?opti...64:p&Itemid=59

[FomAW]

если не сложно можешь на примере показать как сделать ввод по ключу с параметрами?

[Stilet]

Например я так делаю:
Есть некий модуль, доступный во всех других модулях (в uses везде стоит первым)

unit UnitConst;
var AppParams:TStringList;
initialization
  AppParams:=TStringList.Create;
  for i:=0 to Paramcount do     begin
   ParaPath:=ParamStr(i);
   AppParams.Append(ParaPath);
  end;
finalization
 AppParams.Clear; AppParams.Free;

end.

Он подбирает параметры командной строке, и я могу писать следующее:

if AppParams.Values['/M']='2014' then

А саму строку параметров передаю так:
Программа.exe /M=2014
Т.е. значение параметра через знак равенства, который удобно обрабатывается самим TStringList.

можешь взять на вооружение.

[Serge_Bliznykov]

var 
  s : string;
  i, k, m, y : integer;
begin
  m := -1;
  y := -1;
  for i:=1 to ParamCount do begin
     if Copy(ParamStr(i),1,2)='/M' then begin
         s := Copy(ParamStr(i),2,Length(ParamStr(i))-2);
         Val(s, m, k);
         if k<>0 then begin
           WriteLn('Ошибка задания номера месяца! Ожидается целое число!');
           Halt(1);
         end;     
     end
     else
     if Copy(ParamStr(i),1,2)='/Y' then begin
         s := Copy(ParamStr(i),2,Length(ParamStr(i))-2);
         Val(s, y, k);
         if k<>0 then begin
           WriteLn('Ошибка задания номера года! Ожидается целое число!');
           Halt(1);
         end;     
     end
     else begin
        WriteLn('Нераспознанный параметр командной строки: ',ParamStr(i))
     end;
  end;
  if m=-1 then begin {считаем, что месяц не был задан в командной строке}
     WriteLn('Введите номер месяца: '); Readln(m);
  end;
  if y=-1 then begin {считаем, что год не задан}
     WriteLn('Введите год: '); Readln(y);
  end;

.....

Это так, пример - набросок.
писал прямо в браузере, не проверял..
в случае ошибок/опечаток/описок/неточностей - добработать напильником до нужного состояния!

[FomAW]

Спасибо) Все понял!