起動時の引数を表示します。【ソースコード】 [tips0058.pas]
program tips0058; {$APPTYPE CONSOLE} var ix :integer; begin writeLn('引数は',ParamCount, '個あります。'); for ix := 1 to ParamCount do writeLn(ix, ':', ParamStr(ix)); end.【コンパイル&実行】 [tips0058.bat]
dcc32 tips0058.pas tips0058.exe arg1 arg2 >tips0058.txt pause【実行結果】 [tips0058.txt]
引数は2個あります。 1:arg1 2:arg2