Envcount.PAS

Язык:
Русский
English


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

uses Dos;

var
  I : Integer;

begin
 for I := 1 to EnvCount do
   WriteLn(EnvStr(I));
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //