envcount.pas

Пример программы для функции EnvCount.

Код примера
  {Envcount.PAS}
 
  { Пример программы для функции EnvCount }
 
  Uses Dos;
 
  Var I : Integer;
 
 Begin
  For I:=1 To EnvCount Do WriteLn(EnvStr(I));
 End.

Скачать envcount.pas