Правила форума
GetArgCo.PASЯзык:
Русский
English
{ Пример программы для функции GetArgCount }
uses Dos;
var
TheArgCount : Integer;
begin
TheArgCount := GetArgCount;
WriteLn('При запуске программы было передано ', TheArgCount,
' параметров в командной строке.');
WriteLn('(Не считая имени программы)');
end.
var
TheArgCount : Integer;
begin
TheArgCount := GetArgCount;
WriteLn('При запуске программы было передано ', TheArgCount,
' параметров в командной строке.');
WriteLn('(Не считая имени программы)');
end.
::
::
::
