fpc/tests/test/units/system/tparam.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

12 lines
134 B
ObjectPascal

{ %INTERACTIVE }
program tparam;
var
i: integer;
Begin
for i:=0 to ParamCount do
Begin
WriteLn(paramStr(i));
End;
end.