Fixed: list index out of bounds

2024-09-16 16:46:09 +00:00 · 2011-02-18 14:59:12 +00:00 · 2011-02-18 14:59:12 +00:00 · c5ae6a8cef
commit c5ae6a8cef
parent c82652a873
1 changed files with 6 additions and 2 deletions
--- a/X2UtPersistXML.pas
+++ b/X2UtPersistXML.pas
@ -196,8 +196,12 @@ begin
  if SectionStack.Count > 0 then
  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;