From db6dc4b039105140d9b680704be6c01c7b2dc385 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 28 Sep 2021 17:17:40 +0000
Subject: [PATCH] fpspreadsheet: Prevent adding field defs for unsupported
 field types.

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

diff --git a/components/fpspreadsheet/source/dataset/fpsdataset.pas b/components/fpspreadsheet/source/dataset/fpsdataset.pas
index 58fb54596..380443d33 100644
--- a/components/fpspreadsheet/source/dataset/fpsdataset.pas
+++ b/components/fpspreadsheet/source/dataset/fpsdataset.pas
@@ -509,6 +509,9 @@ function TsWorksheetDataset.AddFieldDef(
   AName: String; ADataType: TFieldType; ASize: Integer = 0; AColIndex: Integer = -1;
   ACodePage: TSystemCodePage = CP_UTF8): TsFieldDef;
 begin
+  if not (ADataType in ftSupported) then
+    DatabaseError('Field type not supported.');
+
   if AColIndex = -1 then
     AColIndex := FieldDefs.Count;
   Result := TsFieldDef.Create(TsFieldDefs(FieldDefs),