utils/instantfpc/examples/envvars.pas


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

#!/usr/bin/env instantfpc
{$mode objfpc}{$H+}
uses
  SysUtils;
var
  i: Integer;
begin
  for i:=0 to Paramcount do
    writeln('Param ',i,' ',ParamStr(i));
  for i:=0 to GetEnvironmentVariableCount-1 do
    writeln('Env ',GetEnvironmentString(i));
end.