Fixed read beyond Worksheet count, resolves Mantis #15546

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1127 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2010-01-19 16:53:49 +00:00 · 2010-01-19 16:53:49 +00:00 · 73c6419656
commit 73c6419656
parent ad71ccb493
1 changed files with 3 additions and 0 deletions
--- a/components/fpspreadsheet/xlsbiff8.pas
+++ b/components/fpspreadsheet/xlsbiff8.pas
@ -1271,6 +1271,9 @@ begin

  while (not BIFF8EOF) do
  begin
+    //Safe to not read beyond assigned worksheet names.
+    if FCurrentWorksheet>FWorksheetNames.Count-1 then break;
+
    ReadWorksheet(AStream, AData);

    // Check for the end of the file