mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-12-17 00:01:14 +01:00
IDE: fpc info: fixed env vars
git-svn-id: trunk@29883 -
This commit is contained in:
parent
6b248eb794
commit
bfd14cda9b
@ -97,7 +97,7 @@ var
|
|||||||
begin
|
begin
|
||||||
sl.Add('Environment variables:');
|
sl.Add('Environment variables:');
|
||||||
for i:=0 to GetEnvironmentVariableCount-1 do
|
for i:=0 to GetEnvironmentVariableCount-1 do
|
||||||
sl.Add(GetEnvironmentStringUTF8(i)+'='+GetEnvironmentVariableUTF8(GetEnvironmentStringUTF8(i)));
|
sl.Add(GetEnvironmentStringUTF8(i));
|
||||||
sl.Add('');
|
sl.Add('');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user