Переменная строки запуска, как считать строку запуска в переменную? Опции

[Resager]

Как сделать в Паскале так, чтобы использовать в переменной ключ строки запуска
например, запускаешь (ХХХ.ехе -к), и в программе использовать этот ключ ("к", или "-к")?

[Resager]

У меня не получается получить ключи!!!

Вот сама прога:

var
s: string; i:integer; c:word;
begin
i:=ParamCount;
s:=ParamStr©;
Writeln('s(string)=',s,' i(inteher)=',i,' c(word)=');
writeln;
writeln('code:');
writeln('var s: string; i:integer; c:word; ');
writeln('begin ');
writeln('i:=ParamCount; ');
writeln('s:=ParamStr©; ');
writeln('Writeln(*s(string)=*,s,* i(inteher)=*,i,* c(word)=*); ');
readln; end.

А во что я получаю:
____1__param(это первая попытка) ввёл так -k
s(string)=D:\PAS\BIN\PM\PARAM.EXE i(inteher)=1 c(word)=

code:
var s: string; i:integer; c:word;
begin
i:=ParamCount;
s:=ParamStr©;
Writeln(*s(string)=*,s,* i(inteher)=*,i,* c(word)=*);

Для продолжения нажмите любую клавишу . . .
____2__param(это вторая попытка ввёл так -k -r
s(string)=D:\PAS\BIN\PM\PARAM.EXE i(inteher)=2 c(word)=

code:
var s: string; i:integer; c:word;
begin
i:=ParamCount;
s:=ParamStr©;
Writeln(*s(string)=*,s,* i(inteher)=*,i,* c(word)=*);

З.ы. Ozzя А есть в оффлайн?

Сообщение отредактировано: Resager - 24.09.2007 16:11

[TarasBer]

У меня не получается получить ключи!!!

Вот сама прога:

var
s: string; i:integer; c:word;
begin
i:=ParamCount;
s:=ParamStr©;
Writeln('s(string)=',s,' i(inteher)=',i,' c(word)=');
writeln;
writeln('code:');
writeln('var s: string; i:integer; c:word; ');
writeln('begin ');
writeln('i:=ParamCount; ');
writeln('s:=ParamStr©; ');
writeln('Writeln(*s(string)=*,s,* i(inteher)=*,i,* c(word)=*); ');
readln; end.

А во что я получаю:
____1__param(это первая попытка) ввёл так -k
s(string)=D:\PAS\BIN\PM\PARAM.EXE i(inteher)=1 c(word)=

code:
var s: string; i:integer; c:word;
begin
i:=ParamCount;
s:=ParamStr©;
Writeln(*s(string)=*,s,* i(inteher)=*,i,* c(word)=*);

Для продолжения нажмите любую клавишу . . .
____2__param(это вторая попытка ввёл так -k -r
s(string)=D:\PAS\BIN\PM\PARAM.EXE i(inteher)=2 c(word)=

code:
var s: string; i:integer; c:word;
begin
i:=ParamCount;
s:=ParamStr©;
Writeln(*s(string)=*,s,* i(inteher)=*,i,* c(word)=*);

З.ы. Ozzя А есть в оффлайн?

А что не так? С изначально равно нулю, а нулевой параметр - это путь к самой программе.