blob: ad0654f99eed4c8492411ef50270b86f9171de23 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
Program Example46;
{ Program to demonstrate the ParamCount and ParamStr functions. }
Var
I : Longint;
begin
Writeln (paramstr(0),' : Got ',ParamCount,' command-line parameters: ');
For i:=1 to ParamCount do
Writeln (ParamStr (i));
end.
|
