GetEnvironmentVariableCount

Return the number of variables in the environment.

Declaration

Source position: osutilsh.inc line 30

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

Example

{$h+}
program example92;

{ This program demonstrates the
  GetEnvironmentVariableCount function }

uses sysutils;

Var
  I : Integer;

begin
  or:=1 to GetEnvironmentVariableCount do
    Writeln(i:3,' : ',GetEnvironmentString(i));
end.