paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fcl-db: tdbf: detect some files as DBaseIV instead of III given version signature $03,$8B regardless of language ID. Mantis issue #26332

Browse Source 
git-svn-id: trunk@27993 -
This commit is contained in:
reiniero 2014-06-18 06:42:47 +00:00
parent c260879439
commit 39ae91a66f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -380,7 +380,7 @@ var
version := PDbfHdr(Header)^.VerDBF;
FDbfVersion := xUnknown;
// Some hardcode versions for Visual FoxPro; see MS documentation
// Some hardcoded versions for Visual FoxPro; see MS documentation
// (including the correction at the bottom):
// http://msdn.microsoft.com/en-US/library/st4a0s68%28v=vs.80%29.aspx
case version of
@ -389,14 +389,15 @@ var
end;
if FDbfVersion = xUnknown then
case (version and $07) of
$03: //dbf without memo. Could be foxpro, too
if LanguageID = 0 then
$03: //dbf with/without memo. Could be Foxpro, too
if not(version in [$03,$8B]) {dbase IV, even with cleared language ID} and
(LanguageID = 0) then
FDbfVersion := xBaseIII
else
FDbfVersion := xBaseIV;
$04:
FDbfVersion := xBaseVII;
$02 {FoxBase, not readable by current Visual FoxPro driver}, $05:
$02 {FoxBase, not readable by current MS Visual FoxPro driver}, $05:
FDbfVersion := xFoxPro;
else
begin