Language:
Русский
English
{Envcount.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the EnvCount function.}
uses Dos;
var I: Integer;
begin
for I := 1 to EnvCount do
Writeln(EnvStr(I));
end.
Envcount.PAS |
Language: {Envcount.PAS} uses Dos; var I: Integer; |
|
|