paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: dbase: add new field types (ftLongWord, ftShortint, ftByte) to fix export test errors

Browse Source 
git-svn-id: trunk@47225 -
This commit is contained in:
lacak 2020-10-27 15:01:57 +00:00
parent 6c2554af69
commit eb4bc9d153
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-db/src/dbase/dbf_common.inc
View File

@ -223,6 +223,7 @@
{$define SUPPORT_SEPARATE_VARIANTS_UNIT}
{$define SUPPORT_REFRESHEVENTS}
{$define SUPPORT_BACKWARD_FIELDDATA}
{$define SUPPORT_LONGWORD}
// FPC 1.0.x exceptions: no 0/0 support
{$ifdef VER1_0}

17
packages/fcl-db/src/dbase/dbf_fields.pas
View File

@ -177,6 +177,7 @@ database.
DIGITS_WORD = 5;
DIGITS_INTEGER = 9;
DIGITS_LARGEINT = 18;
DIGITS_LONGWORD = 9;
//====================================================================
// DbfFieldDefs
@ -474,6 +475,9 @@ begin
ftFloat, ftSmallInt, ftWord
{$ifdef SUPPORT_INT64}
, ftLargeInt
{$endif}
{$ifdef SUPPORT_LONGWORD}
, ftLongWord, ftShortInt, ftByte
{$endif}
:
FNativeFieldType := 'N'; //numerical
@ -559,6 +563,19 @@ begin
FSize := DIGITS_LARGEINT;
FPrecision := 0;
end;
{$endif}
{$ifdef SUPPORT_LONGWORD}
ftLongWord:
begin
FSize := DIGITS_LONGWORD;
FPrecision := 0;
end;
ftShortInt,
ftByte:
begin
FSize := 3;
FPrecision := 0;
end;
{$endif}
ftString {$ifdef SUPPORT_FIELDTYPES_V4}, ftFixedChar, ftWideString{$endif}:
begin