From 431727c61efaf1e65ac4e34da7d7126e1b1c3f81 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 23 Jun 2018 16:40:28 +0000
Subject: [PATCH] * Added ftDataset field type

---
 packages/fcl-db/db.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-db/db.pas b/packages/fcl-db/db.pas
index fbe3647..1028f71 100644
--- a/packages/fcl-db/db.pas
+++ b/packages/fcl-db/db.pas
@@ -99,7 +99,7 @@ type
   TFieldType = (
     ftUnknown, ftString, ftInteger, ftLargeInt, ftBoolean, ftFloat, ftDate,
     ftTime, ftDateTime,  ftAutoInc, ftBlob, ftMemo, ftFixedChar,
-    ftVariant
+    ftVariant,ftDataset
   );
 
 { TDateTimeRec }
@@ -1675,7 +1675,8 @@ Const
       {ftBlob} 'Blob',
       {ftMemo} 'Memo',
       {ftFixedChar} 'FixedChar',
-      {ftVariant} 'Variant'
+      {ftVariant} 'Variant',
+      {ftDataset} 'Dataset'
     );
 
   DefaultFieldClasses : Array [TFieldType] of TFieldClass =
@@ -1693,7 +1694,8 @@ Const
       { ftBlob} TBlobField,
       { ftMemo} TMemoField,
       { ftFixedChar} TStringField,
-      { ftVariant} TVariantField
+      { ftVariant} TVariantField,
+      { ftDataset} Nil
     );
 
   dsEditModes = [dsEdit, dsInsert, dsSetKey];