[Человек_Борща]

Всем доброго времени суток!


Проблема:
пишу консольку. Надо анализовать параметры запуса. НЕ просто ключи запуска вида: /x1 /x2 /x3 /x4

А ключи с параметрами вида /x1 "x1.file.txt" /x2 "x2.file.txt" /x3 "x3.file.txt" /x4 "x4.file.txt"

как это делать?


В гугле копал ничего, конкретно, на эту тему не откопал.

Про ParamCount и ParamStr мне прекрасно известно.

[PhoeniX]

Так считывай из ParamStr название параметра, и, если он требует какой-либо аргумент - заноси в переменную значение следующего. Не понимаю, в чём сложность?

[M.A.D.M.A.N.]

Парсить строку. 2Phoenix: 774 F4C 793 776 416 738 654 473 377 650 793 475 587 735 755 467 356 64C 782 F79 776 72F 2B7 275 346 673 673 775 306 738 2B7 A74 356 555 673 476 486 C39 533 4

[Человек_Борща]

Спасибо огромное

Ренализовал вот так:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: SmallInt;
begin
  if ParamCount > 0 then
  begin
    for i := 0 to ParamCount - 1 do
    begin
      if ParamStr(i) = '-PidFile' then
      begin
        Memo1.Lines.Add('PID файл: ' + ParamStr(i + 1));
      end;

      if ParamStr(i) = '-ExeFile' then
      begin
        Memo1.Lines.Add('Исполняемый файл: ' + ParamStr(i + 1));
      end;

      if ParamStr(i) = '-ExeParams' then
      begin
        Memo1.Lines.Add('Ключи запуска: ' + ParamStr(i + 1));
      end;
    end;
  end;
end;