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

* fcl-db/dbase: let dbf.pas apply default blocklength=64 (instead of 512) for *foxpro

Browse Source 
git-svn-id: trunk@24210 -
This commit is contained in:
reiniero 2013-04-09 06:55:08 +00:00
parent 8353d53b69
commit 36cb560e0d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-db/src/dbase/dbf.pas
View File

@ -1518,6 +1518,10 @@ begin
FDbfFile.DbfVersion := TableLevelToDbfVersion(FTableLevel); FDbfFile.DbfVersion := TableLevelToDbfVersion(FTableLevel);
FDbfFile.FileLangID := FLanguageID; FDbfFile.FileLangID := FLanguageID;
FDbfFile.Open; FDbfFile.Open;
// Default memo blocklength for FoxPro/VisualFoxpro is 64 (not 512 as specs say)
if FDbfFile.DbfVersion in [xFoxPro,xVisualFoxPro] then
FDbfFile.FinishCreate(ADbfFieldDefs, 64)
else
FDbfFile.FinishCreate(ADbfFieldDefs, 512); FDbfFile.FinishCreate(ADbfFieldDefs, 512);
// if creating memory table, copy stream pointer // if creating memory table, copy stream pointer