paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-18 06:19:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added ftDataset field type

Browse Source
This commit is contained in:
michael 2018-06-23 16:40:28 +00:00
parent 8bb4d30b8f
commit 431727c61e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/db.pas
View File

@ -99,7 +99,7 @@ type
TFieldType = ( TFieldType = (
ftUnknown, ftString, ftInteger, ftLargeInt, ftBoolean, ftFloat, ftDate, ftUnknown, ftString, ftInteger, ftLargeInt, ftBoolean, ftFloat, ftDate,
ftTime, ftDateTime, ftAutoInc, ftBlob, ftMemo, ftFixedChar, ftTime, ftDateTime, ftAutoInc, ftBlob, ftMemo, ftFixedChar,
ftVariant ftVariant,ftDataset
); );
{ TDateTimeRec } { TDateTimeRec }
@ -1675,7 +1675,8 @@ Const
{ftBlob} 'Blob', {ftBlob} 'Blob',
{ftMemo} 'Memo', {ftMemo} 'Memo',
{ftFixedChar} 'FixedChar', {ftFixedChar} 'FixedChar',
{ftVariant} 'Variant' {ftVariant} 'Variant',
{ftDataset} 'Dataset'
); );
DefaultFieldClasses : Array [TFieldType] of TFieldClass = DefaultFieldClasses : Array [TFieldType] of TFieldClass =
@ -1693,7 +1694,8 @@ Const
{ ftBlob} TBlobField, { ftBlob} TBlobField,
{ ftMemo} TMemoField, { ftMemo} TMemoField,
{ ftFixedChar} TStringField, { ftFixedChar} TStringField,
{ ftVariant} TVariantField { ftVariant} TVariantField,
{ ftDataset} Nil
); );
dsEditModes = [dsEdit, dsInsert, dsSetKey]; dsEditModes = [dsEdit, dsInsert, dsSetKey];