paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db/dbase: fix for r24109

Browse Source 
git-svn-id: trunk@24112 -
This commit is contained in:
reiniero 2013-04-01 17:06:04 +00:00
parent 6fc43628da
commit a79d79980a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -621,6 +621,7 @@ begin
xFoxPro: PDbfHdr(Header)^.VerDBF := $02; {FoxBASE} xFoxPro: PDbfHdr(Header)^.VerDBF := $02; {FoxBASE}
xVisualFoxPro: PDbfHdr(Header)^.VerDBF := $30; {Visual FoxPro no autoincrement,no varchar} //todo: check autoincrement, Varchar, Varbinary, or Blob-enabled xVisualFoxPro: PDbfHdr(Header)^.VerDBF := $30; {Visual FoxPro no autoincrement,no varchar} //todo: check autoincrement, Varchar, Varbinary, or Blob-enabled
else PDbfHdr(Header)^.VerDBF := $03; {FoxBASE+/dBASE III PLUS, no memo!?} else PDbfHdr(Header)^.VerDBF := $03; {FoxBASE+/dBASE III PLUS, no memo!?}
end;
// standard language WE, dBase III no language support // standard language WE, dBase III no language support
if FDbfVersion = xBaseIII then if FDbfVersion = xBaseIII then
PDbfHdr(Header)^.Language := 0 PDbfHdr(Header)^.Language := 0
@ -656,9 +657,9 @@ begin
lPrec := lFieldDef.Precision; lPrec := lFieldDef.Precision;
if (lFieldDef.NativeFieldType = 'C') if (lFieldDef.NativeFieldType = 'C')
{$ifndef USE_LONG_CHAR_FIELDS} {$ifndef USE_LONG_CHAR_FIELDS}
and (FDbfVersion in [xFoxPro,xVisualFoxPro]) and (FDbfVersion in [xFoxPro,xVisualFoxPro])
{$endif} {$endif}
then then
begin begin
lPrec := lSize shr 8; lPrec := lSize shr 8;
lSize := lSize and $FF; lSize := lSize and $FF;
@ -724,7 +725,6 @@ begin
an associated database (.dbc) file, information. If the first byte is 0x00, an associated database (.dbc) file, information. If the first byte is 0x00,
the file is not associated with a database. Therefore, database files always the file is not associated with a database. Therefore, database files always
contain 0x00. } contain 0x00. }
end;
if FDbfVersion = xVisualFoxPro then if FDbfVersion = xVisualFoxPro then
Inc(PDbfHdr(Header)^.FullHdrSize, 263); Inc(PDbfHdr(Header)^.FullHdrSize, 263);