fpcdocs/sysutex/ex92.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{$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.