[起動時の引数を取得する]

起動時の引数を表示します。

program tips0059;
{$APPTYPE CONSOLE}
var   ix :integer;
begin
  writeLn('引数は',ParamCount, '個あります。');
  for ix  :=  1 to  ParamCount  do
    writeLn(ix, ':', ParamStr(ix));
end.

dcc32 tips0059.pas 
tips0059.exe  arg1 arg2 >tips0059.txt
pause

引数は2個あります。
1:arg1
2:arg2