GetArgCo.PAS

Language:
Русский
English

  {GetArgCo.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the GetArgCount function.}

  uses WinCrt, WinDOS;

 var
   TheArgCount:  Integer;

 begin
   TheArgCount := GetArgCount;
   Writeln('There were ', TheArgCount,' arguments to the prompt (in addition
    to the');
   Writeln('program name) when running this program.');
 end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //