unit dbstructures.interbase; {$mode delphi}{$H+} interface uses dbstructures; var // Interbase field types // Taken from https://docwiki.embarcadero.com/InterBase/2020/en/RDB$FIELDS InterbaseDatatypes: Array[0..13] of TDBDatatype = ( ( Index: dbdtUnknown; Name: 'UNKNOWN'; Description: 'Unknown data type'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcOther; ), ( Index: dbdtBlob; NativeTypes: '261'; Name: 'BLOB'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: True; Category: dtcBinary; ), ( Index: dbdtBool; NativeTypes: '17'; Name: 'BOOLEAN'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcOther; ), ( Index: dbdtChar; NativeTypes: '14'; Name: 'CHAR'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcText; ), ( Index: dbdtVarchar; NativeTypes: '37|40'; Name: 'VARCHAR'; HasLength: True; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: True; Category: dtcText; ), ( Index: dbdtFloat; NativeTypes: '10|11'; Name: 'FLOAT'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcReal; ), ( Index: dbdtDouble; NativeTypes: '27'; Name: 'DOUBLE PRECISION'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcReal; ), ( Index: dbdtBigint; NativeTypes: '16'; Name: 'INT64'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcInteger; ), ( Index: dbdtInt; NativeTypes: '8'; Name: 'INTEGER'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcInteger; ), ( Index: dbdtNumeric; NativeTypes: '9'; Name: 'QUAD'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcInteger; ), ( Index: dbdtSmallint; NativeTypes: '7'; Name: 'SMALLINT'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcInteger; ), ( Index: dbdtDate; NativeTypes: '12'; Name: 'DATE'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcTemporal; ), ( Index: dbdtTime; NativeTypes: '13'; Name: 'TIME'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcTemporal; ), ( Index: dbdtTimestamp; NativeTypes: '35'; Name: 'TIMESTAMP'; HasLength: False; RequiresLength: False; HasBinary: False; HasDefault: False; LoadPart: False; Category: dtcTemporal; ) ); implementation end.