paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-07 10:57:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazLogger: fix getting command line param. To not return include "=" from --debug-enable=foo. Issue #39520

Browse Source
This commit is contained in:
Martin 2021-12-29 17:08:38 +01:00
parent 7c60c7ce47
commit 7a876814d5
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/lazutils/lazloggerbase.pas
View File

@ -383,11 +383,15 @@ end;
function GetParamByNameCount(const AName: String): integer;
var
i, l: Integer;
s: String;
begin
Result := 0;;
Result := 0;
l := Length(AName);
for i:= 1 to Paramcount do begin
if copy(ParamStrUTF8(i),1, l) = AName then
s := ParamStrUTF8(i);
if (copy(s, 1, l) = AName) and
((length(s) = l) or (s[l+1] = '='))
then
inc(Result);
end;
end;
@ -395,13 +399,18 @@ end;
function GetParamByName(const AName: String; AnIndex: Integer): string;
var
i, l: Integer;
s: String;
begin
Result := '';
l := Length(AName);
for i:= 1 to Paramcount do begin
if copy(ParamStrUTF8(i),1, l) = AName then begin
s := ParamStrUTF8(i);
if (copy(s, 1, l) = AName) and
((length(s) = l) or (s[l+1] = '='))
then begin
dec(AnIndex);
if AnIndex < 0 then begin
inc(l); // skip = sign
Result := copy(ParamStrUTF8(i), l+1, Length(ParamStrUTF8(i))-l);
break;
end;