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

+ fcl-db/dbase: allow creation of Visual Foxpro tablelevel 30 files

Browse Source 
git-svn-id: trunk@24122 -
This commit is contained in:
reiniero 2013-04-02 03:11:01 +00:00
parent 19e5ddcbbf
commit b9fc64f697
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2356,7 +2356,7 @@ begin
if NewLevel <> FTableLevel then
begin
// check validity
if not ((NewLevel = 3) or (NewLevel = 4) or (NewLevel = 7) or (NewLevel = 25)) then
if not (NewLevel in [3,4,7,TDBF_TABLELEVEL_FOXPRO,TDBF_TABLELEVEL_VISUALFOXPRO]) then
exit;
// can only assign tablelevel if table is closed