1
0
mirror of synced 2024-09-19 09:46:09 +00:00

Fixed: list index out of bounds

This commit is contained in:
Mark van Renswoude 2011-02-18 14:59:12 +00:00
parent c82652a873
commit c5ae6a8cef

View File

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