paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch by Frank Rademakers: Initialize new FoxPro Float fields correctly, resolves #39418

Browse Source
This commit is contained in:
florian 2021-10-27 21:19:34 +02:00
parent 3263e12a3e
commit 8ca19a3b65
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-db/src/dbase/dbf_dbffile.pas
View File

@ -2341,7 +2341,8 @@ begin
TempFieldDef := FFieldDefs.Items[I]; TempFieldDef := FFieldDefs.Items[I];
// binary (non-text) field? (foxpro memo fields are binary, but dbase not) // binary (non-text) field? (foxpro memo fields are binary, but dbase not)
if (TempFieldDef.NativeFieldType in ['I', 'O', '@', '+', '0', 'W', 'Y']) if (TempFieldDef.NativeFieldType in ['I', 'O', '@', '+', '0', 'W', 'Y'])
or ((TempFieldDef.NativeFieldType = 'M') and (TempFieldDef.Size = 4) {Visual FoxPro?}) then or ((TempFieldDef.NativeFieldType = 'M') and (TempFieldDef.Size = 4) {Visual FoxPro?})
or ((TempFieldDef.NativeFieldType = 'B') and (FDbfVersion in [xFoxPro, xVisualFoxPro])) then
FillChar(PChar(FDefaultBuffer+TempFieldDef.Offset)^, TempFieldDef.Size, 0); FillChar(PChar(FDefaultBuffer+TempFieldDef.Offset)^, TempFieldDef.Size, 0);
// copy default value? // copy default value?
if TempFieldDef.HasDefault then if TempFieldDef.HasDefault then