fpcsrc/tests/test/units/system/tparam.pp


1
2
3
4
5
6
7
8
9
10
11

{ %INTERACTIVE }
program tparam;

var
 i: integer;
Begin
  for i:=0 to ParamCount do
   Begin
     WriteLn(paramStr(i));
   End;
end.