paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed read beyond Worksheet count, resolves Mantis #15546

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1127 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy 2010-01-19 16:53:49 +00:00
parent ad71ccb493
commit 73c6419656
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/xlsbiff8.pas
View File

@ -1271,6 +1271,9 @@ begin
while (not BIFF8EOF) do while (not BIFF8EOF) do
begin begin
//Safe to not read beyond assigned worksheet names.
if FCurrentWorksheet>FWorksheetNames.Count-1 then break;
ReadWorksheet(AStream, AData); ReadWorksheet(AStream, AData);
// Check for the end of the file // Check for the end of the file