GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

Fixed: list index out of bounds

Browse Source
This commit is contained in:
Mark van Renswoude 2011-02-18 14:59:12 +00:00
parent c82652a873
commit c5ae6a8cef
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
X2UtPersistXML.pas
View File

@ -196,8 +196,12 @@ begin
if SectionStack.Count > 0 then if SectionStack.Count > 0 then
begin begin
lastItem := Pred(SectionStack.Count); lastItem := Pred(SectionStack.Count);
FSection := (SectionStack[Pred(lastItem)] as IXMLSection); if lastItem < 0 then
FSection := Configuration
else
FSection := (SectionStack[Pred(lastItem)] as IXMLSection);
SectionStack.Delete(lastItem); SectionStack.Delete(lastItem);
end; end;
end; end;