1
0
mirror of synced 2024-12-22 09:13:07 +01: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
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);
end;
end;