IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Переменная строки запуска, как считать строку запуска в переменную?
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской
Реальное имя: Resager

Репутация: -  0  +


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


Новичок
*

Группа: Пользователи
Сообщений: 17
Пол: Мужской
Реальное имя: Resager

Репутация: -  0  +


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

Вот сама прога:
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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Цитата(Resager @ 24.09.2007 17:01) *

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

Вот сама прога:
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я А есть в оффлайн?

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


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Resager   Переменная строки запуска   22.09.2007 18:07
klem4   в следующий раз используй поиск: Как передать пара…   22.09.2007 18:16
Resager   Я искал, не нашёл, пасиба, папробую, а в трэй можн…   22.09.2007 20:15
volvo   В трей? Из 16-битного DOS-приложения? Ты разделом …   22.09.2007 20:27
Resager   хм, я в процессе изучения, патаму и спрашиваю, ващ…   22.09.2007 21:03
Ozzя   Где можна скачать хороший учебник по Паскалю + вс…   24.09.2007 12:03
Resager   У меня не получается получить ключи!!…   24.09.2007 20:01
TarasBer   У меня не получается получить ключи!!…   25.09.2007 1:20
SKVOZNJAK   А есть в оффлайн? Было :) На диске "паскал…   25.09.2007 15:29
Resager   SKVOZNJAK - ПАСИБА, ещё не всё скачал, но скачаю к…   25.09.2007 22:12
TarasBer   SKVOZNJAK - ПАСИБА, ещё не всё скачал, но скачаю …   25.09.2007 22:26
Resager   TarasBer - теперь я понял, пасиба, а ещё один вопр…   25.09.2007 22:41
TarasBer   TarasBer - теперь я понял, пасиба, а ещё один воп…   26.09.2007 0:48
Resager   Типа crt, graphic......   26.09.2007 19:02
TarasBer   Типа crt, graphic...... Ну пишешь в начале текст…   26.09.2007 23:08
Resager   TarasBer, проблема в том, что компилятор выдаёт ош…   29.09.2007 21:06
volvo   Путь к файлу Graph.TPU в меню "Options -> …   29.09.2007 21:09
Resager   Как сделать в три действия (использовать можно ток…   1.10.2007 23:25
TarasBer   Как сделать в три действия (использовать можно то…   2.10.2007 3:15
volvo   В FAQ... Там есть тема, в которой описано, что дел…   2.10.2007 3:34
Resager   А хде этот фак, я его в поиске не нашёл (в каком р…   2.10.2007 19:07
volvo   Error 200. Crt & Delay   2.10.2007 19:14
Resager   А можно ли средствами Паскаля организовать файл (и…   9.10.2007 21:00
volvo   Файлы -> Поиск файла по директориям... Начни уж…   9.10.2007 21:03
Resager   Бальшое Пасиба, за ответ, у меня ещё один вапрос (…   16.10.2007 22:06
volvo   Открывать Паскаль через Ярлык, и прописать в этом …   16.10.2007 22:14
Resager   ну скриншот не обязательно было, я бы и так понял,…   17.10.2007 19:31
volvo   А в Options -> Environment -> Preferences у…   17.10.2007 20:06


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 13:41
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name