|
@@ -448,6 +448,7 @@ end;
|
|
|
procedure TDbfFieldDef.VCLToNative;
|
|
procedure TDbfFieldDef.VCLToNative;
|
|
|
begin
|
|
begin
|
|
|
FNativeFieldType := #0;
|
|
FNativeFieldType := #0;
|
|
|
|
|
+ // to do: look into ftBytes support; e.g. Visual FoxPro varbytes?
|
|
|
case FFieldType of
|
|
case FFieldType of
|
|
|
ftAutoInc :
|
|
ftAutoInc :
|
|
|
if DbfVersion=xVisualFoxPro then
|
|
if DbfVersion=xVisualFoxPro then
|
|
@@ -474,7 +475,8 @@ begin
|
|
|
{$ifdef SUPPORT_INT64}
|
|
{$ifdef SUPPORT_INT64}
|
|
|
, ftLargeInt
|
|
, ftLargeInt
|
|
|
{$endif}
|
|
{$endif}
|
|
|
- : FNativeFieldType := 'N';
|
|
|
|
|
|
|
+ :
|
|
|
|
|
+ FNativeFieldType := 'N'; //numerical
|
|
|
ftDate :
|
|
ftDate :
|
|
|
FNativeFieldType := 'D'; //date
|
|
FNativeFieldType := 'D'; //date
|
|
|
ftMemo :
|
|
ftMemo :
|
reiniero