Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Вниз

Командная строка...   Найти похожие ветки 

 
Riko   (2002-05-11 17:13) [0]

Всем привет!
Знаю, что было не мало сказано на форуме о командной строке, но хотелось бы вновь поднять этот вопрос. Пожалуйста, объясните детально для начинающего программера следующее... Например, есть у меня функция:

Function WriteText;
var
F:TextFile
begin
{Здесь стандартные команды
записи в текстовый файл}
end;


Хотелось бы узнать, как данную функцию можно выполнить в командной строке да еще так, чтобы сама программа не запускалась, точнее ее форма не выводилась? Я видел команду ParamStr в файле справки, но как ей пользоваться?
Если не трудно, покажите на примере, я только с помощью их, инфы с Инета и учусь. Спасибо за внимание.


 
Val   (2002-05-11 17:24) [1]

Я видел команду ParamStr в файле справки, но как ей пользоваться?
в справке к ней и пример существует


 
MBo   (2002-05-11 17:24) [2]

qq.dpr

program qq;
var f:textfile;
i:integer;
begin
assignfile(f,"qqq.txt");
rewrite(f);
for i:=0 to ParamCount-1 do
writeln(f,paramstr(i));
closefile(f);
end.


 
Val   (2002-05-11 17:26) [3]

>MBo © (11.05.02 17:24)
я так понял, автор хочет не показывать форму в зависимости от параметра?


 
ZZ   (2002-05-11 17:29) [4]

ParamStr возвращает i-ый параметр командной строки.
Например, project1 start
ParamStr(0) = "project1"
ParamStr(1) = "start"

Чтобы формы небыло ее надо удалить из проекта и писать текст программы в dpr файле.

как данную функцию можно выполнить в командной строке да еще так...
Из командной строки никакие функции не выполняются. Можно только запустить твою программу с некоторыми параметрами, которые ты в самой программе проверяешь и делаешь действия, зависящие от них.


 
MBo   (2002-05-11 17:30) [5]

for i:=1 to ParamCount // так надо

эта программа выполнится, ничего не показывая, запишет параметры ком. строки


 
Riko   (2002-05-11 17:41) [6]

2ALL:

Наверное, Вы все меня неправильно поняли.
У моей проги есть форма, множество других функцию.
Мне нужно сделать так, чтобы пользователь смог выполнить функцию WriteText; (возможно, я неправильно объясняю но...) в командной строке, набрав определенны ключ, как делают это утилиты командной строки.

Например:
МояПрога /ключ

Нужно это, если Винда грохнулась, а создать этот файл всеравно надо. Ведь, если пользователь вызовет прогу у которой есть форма, в этой ситуации она просто не запустится.


 
ZZ   (2002-05-11 17:45) [7]

:) Если есть винда, значит окно запустится :)
Если ты его хочешь запустить в DOS"е, то не получится никак!!!

А вообще -
if ParamStr(1) ="/key"
then begin
WriteText;
Write("Text was written succesfully");
exit;
end;
в файле проекта, а не формы !!!


 
Riko   (2002-05-11 17:49) [8]

2ZZ © (11.05.02 17:45)

Если ты его хочешь запустить в DOS"е, то не получится никак!!!

Почему?


 
ZZ   (2002-05-11 17:53) [9]

Патаму шта.. это прога для Windows, а не для DOS.
Если надо для DOS - пиши на паскале.


 
Riko   (2002-05-11 17:59) [10]

Я знал, что вопрос глупый, но лучше знать точно, чем быть в неведении. Теперь вот еще что... Я понял, что это помещаеться в моем файле .DPR :

if ParamStr(1) ="/key"
then begin
WriteText;
Write("Text was written succesfully");
exit;
end;


А можно ли вызвать как-то вместо:
WriteText;
Write("Text was written succesfully");
exit;


...мою функцию из .PAS файла, она не маленькая, не хотелось бы увеличивать размеры программы.


 
Val   (2002-05-11 18:14) [11]

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


 
Riko   (2002-05-11 18:18) [12]

Точно! Как-то сразу не вкурил.
Всем большое спасибо за помощь.


 
ZZ   (2002-05-11 18:19) [13]

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.008 c
1-73172
CybVe
2002-05-13 16:53
2002.05.23
Что такое TFrame и зачем он нужен?


1-73286
Avsam
2002-05-11 14:40
2002.05.23
SysListView32


7-73419
Aleksey_K
2002-02-25 14:45
2002.05.23
UPS


6-73321
Semen Pleshivtsev
2002-02-19 18:06
2002.05.23
Выделение фразы цветом в TWebBrowser ? Help!


3-73047
Slym
2002-04-23 11:27
2002.05.23
Пытаюсь свелать предка TDataModule...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский