IDE: fpc info: fixed env vars

git-svn-id: trunk@29883 -
This commit is contained in:
mattias 2011-03-17 07:51:27 +00:00
parent 6b248eb794
commit bfd14cda9b

View File

@ -97,7 +97,7 @@ var
begin
sl.Add('Environment variables:');
for i:=0 to GetEnvironmentVariableCount-1 do
sl.Add(GetEnvironmentStringUTF8(i)+'='+GetEnvironmentVariableUTF8(GetEnvironmentStringUTF8(i)));
sl.Add(GetEnvironmentStringUTF8(i));
sl.Add('');
end;