Параметры из командной строки

[ProGg]

Как запустить прогу написанную на TP (или DELPHI в consol application) через windows"ую командную строку с параметрами.Покажите пожалуйста,хоть на примере вывода числа,которое передали в кач. параметра

[Dark_Spirit]

program del_str;

{$APPTYPE CONSOLE}

uses
SysUtils;

var f1,f2:textfile;
str:string;
nam:string;
begin
nam:=copy(paramstr(1),1,pos('.',par amStr(1))-1)+'_'
+copy(paramstr(1),pos('.',paramstr( 1)),4);
assignfile(f1,paramstr(1));
reset(f1);
assignfile(f2,nam);
rewrite(f2);
while not eof(f1) do
begin
readln(f1,str);
if copy(str,1,1)<>chr(12)
then writeln(f2,str);
end;
closefile(f1);
closefile(f2);
{ TODO -oUser -cConsole Main : Insert code here }
end.
- это пример проги которая использует параметры.
ну а запустить так: del_str.exe <параметр> - в данном случае это имя файла

[Stilet]

ProGg

Запустить из другой проги или ручками?

[ProGg]

из командной строки ручками

[Stilet]

Dark_Spirit пример тебе дал.

[Serge_Bliznykov]

а мне кажется такой пример (из TP7 help'а) проще и нагляднее:

var I: Word;
begin
  for I := 1 to ParamCount do
    Writeln(ParamStr(I));
end.