GetEnvironmentVariableCount

Return the number of variables in the environment.

Declaration

Source position: osutilsh.inc line 29

  function GetEnvironmentVariableCount : Integer;

Description

GetEnvironmentVariableCount returns the number of variables in the environment. The number is 1 based, but the result may be zero if there are no environment variables.

Errors

If there is no environment, -1 may be returned.

See also

Name Description
GetEnvironmentString Return an environment variable by index.
GetEnvironmentVariable Return the value of an environment variable.

Example

{$h+}
program example92;
{ This program demonstrates the
  GetEnvironmentVariableCount function }
uses sysutils;
Var
  I : Integer;
begin
  For I:=1 to GetEnvironmentVariableCount do
    Writeln(i:3,' : ',GetEnvironmentString(i));
end.