From 9a8edcf7f5d03762c05a6bbb5d60fde1723f75d9 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 9 Oct 2023 17:45:01 +0000
Subject: [PATCH] fpspreadsheet: Fix ods reader crashing when settings.xml is
 missing.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8943 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/source/common/fpsopendocument.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/fpspreadsheet/source/common/fpsopendocument.pas b/components/fpspreadsheet/source/common/fpsopendocument.pas
index 71c8d000a..ef4466f83 100644
--- a/components/fpspreadsheet/source/common/fpsopendocument.pas
+++ b/components/fpspreadsheet/source/common/fpsopendocument.pas
@@ -3092,15 +3092,15 @@ begin
         finally
           FreeAndNil(Doc);
         end;
-      end else
-        raise EFPSpreadsheetReader.Create(err);
+      end;
     finally
       XMLStream.Free;
     end;
 
     // Active sheet
     if FActiveSheet <> '' then
-      sheet := (FWorkbook as TsWorkbook).GetWorksheetByName(FActiveSheet) else
+      sheet := (FWorkbook as TsWorkbook).GetWorksheetByName(FActiveSheet)
+    else
       sheet := (FWorkbook as TsWorkbook).GetWorksheetByIndex(0);
     (FWorkbook as TsWorkbook).SelectWorksheet(sheet);