paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 16:49:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Improvement of SysGetEnvironmentList by Alexey Torgashin. Fixes issue #40347

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-14 10:32:06 +02:00
parent fd1f7b2ef8
commit 31edc46202
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/fcl-base/src/custapp.pp
View File

@ -176,22 +176,20 @@ Procedure SysGetEnvironmentList(List : TStrings;NamesOnly : Boolean);
var
s : string;
i,l,j,count : longint;
i,j,count : longint;
begin
count:=GetEnvironmentVariableCount;
if count>0 then
for j:=1 to count do
begin
s:=GetEnvironmentString(j);
l:=Length(s);
If NamesOnly then
begin
I:=pos('=',s);
If (I>0) then
S:=Copy(S,1,I-1);
end;
List.Add(S);
for j:=1 to count do
begin
s:=GetEnvironmentString(j);
If NamesOnly then
begin
I:=pos('=',s);
If (I>1) then
S:=Copy(S,1,I-1);
end;
List.Add(S);
end;
end;