mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-03 12:18:24 +02:00
14 lines
179 B
ObjectPascal
14 lines
179 B
ObjectPascal
program EnvPrg;
|
|
|
|
uses sysutils;
|
|
|
|
var
|
|
s: String;
|
|
begin
|
|
s := GetEnvironmentVariable('ETEST1');
|
|
if s = 'ab123c' then
|
|
Freemem(GetMem(1))
|
|
else
|
|
Freemem(GetMem(2));
|
|
end.
|