paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 05:44:28 +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 var
s : string; s : string;
i,l,j,count : longint; i,j,count : longint;
begin begin
count:=GetEnvironmentVariableCount; count:=GetEnvironmentVariableCount;
if count>0 then for j:=1 to count do
for j:=1 to count do begin
begin s:=GetEnvironmentString(j);
s:=GetEnvironmentString(j); If NamesOnly then
l:=Length(s); begin
If NamesOnly then I:=pos('=',s);
begin If (I>1) then
I:=pos('=',s); S:=Copy(S,1,I-1);
If (I>0) then end;
S:=Copy(S,1,I-1); List.Add(S);
end;
List.Add(S);
end; end;
end; end;