Contact: aviboots(AT)netvision.net.il
35,973 questions
47,054 answers
573 users
program CommandLineArguments; var i: Integer; begin for i := 1 to ParamCount - 1 do Write(ParamStr(I), ' '); if (ParamCount > 0) then Write(ParamStr(ParamCount)); WriteLn(); end. (* run: abc 123 F35 *)