paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 15:10:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: TXMLConfig fixed crash with uninitialized result value. (If "CreateNodes" is false, and [] value is not cached)

Browse Source
This commit is contained in:
Martin 2022-06-15 01:35:14 +02:00
parent 7771de23e5
commit 4e97ffa45f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/lazutils/laz2_xmlcfg.pas
View File

@ -990,6 +990,7 @@ var
cmp, BrPos: Integer; cmp, BrPos: Integer;
NodeName: string; NodeName: string;
begin begin
Result := nil;
BrPos := Pos('[', aName); BrPos := Pos('[', aName);
if (Length(aName)>=BrPos+2) and (aName[Length(aName)]=']') if (Length(aName)>=BrPos+2) and (aName[Length(aName)]=']')
and TryStrToInt(Trim(Copy(aName, BrPos+1, Length(aName)-BrPos-1)), m) then and TryStrToInt(Trim(Copy(aName, BrPos+1, Length(aName)-BrPos-1)), m) then