pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix ods reader crashing when settings.xml is missing.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8943 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-10-09 17:45:01 +00:00
parent a2350194b7
commit 9a8edcf7f5
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/common/fpsopendocument.pas
View File

@ -3092,15 +3092,15 @@ begin
finally finally
FreeAndNil(Doc); FreeAndNil(Doc);
end; end;
end else end;
raise EFPSpreadsheetReader.Create(err);
finally finally
XMLStream.Free; XMLStream.Free;
end; end;
// Active sheet // Active sheet
if FActiveSheet <> '' then if FActiveSheet <> '' then
sheet := (FWorkbook as TsWorkbook).GetWorksheetByName(FActiveSheet) else sheet := (FWorkbook as TsWorkbook).GetWorksheetByName(FActiveSheet)
else
sheet := (FWorkbook as TsWorkbook).GetWorksheetByIndex(0); sheet := (FWorkbook as TsWorkbook).GetWorksheetByIndex(0);
(FWorkbook as TsWorkbook).SelectWorksheet(sheet); (FWorkbook as TsWorkbook).SelectWorksheet(sheet);