|
From: Micha N. <md...@us...> - 2004-08-29 14:37:58
|
Update of /cvsroot/tdbf/tdbf In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2907 Modified Files: dbf_common.pas dbf_fields.pas history.txt Log Message: start new version: 6.3.9\nfixed: opening dbf file with numeric integer field misreads numbers Index: dbf_fields.pas =================================================================== RCS file: /cvsroot/tdbf/tdbf/dbf_fields.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** dbf_fields.pas 25 Aug 2004 21:28:42 -0000 1.4 --- dbf_fields.pas 29 Aug 2004 14:37:36 -0000 1.5 *************** *** 473,499 **** 'N','F': begin ! case FFieldType of ! ftSmallInt: ! begin ! FSize := DIGITS_SMALLINT; ! FPrecision := 0; ! end; ! ftInteger: ! begin ! FSize := DIGITS_INTEGER; ! FPrecision := 0; ! end; ! ftLargeInt: ! begin ! FSize := DIGITS_LARGEINT; ! FPrecision := 0; ! end; ! else ! // floating point ! if FSize < 2 then FSize := 2; ! if FSize >= 20 then FSize := 20; ! if FPrecision > FSize-2 then FPrecision := FSize-2; ! if FPrecision < 0 then FPrecision := 0; ! end; end; 'D': --- 473,481 ---- 'N','F': begin ! // floating point ! if FSize < 2 then FSize := 2; ! if FSize >= 20 then FSize := 20; ! if FPrecision > FSize-2 then FPrecision := FSize-2; ! if FPrecision < 0 then FPrecision := 0; end; 'D': Index: history.txt =================================================================== RCS file: /cvsroot/tdbf/tdbf/history.txt,v retrieving revision 1.71 retrieving revision 1.72 diff -C2 -d -r1.71 -r1.72 *** history.txt 28 Aug 2004 12:42:13 -0000 1.71 --- history.txt 29 Aug 2004 14:37:36 -0000 1.72 *************** *** 34,37 **** --- 34,47 ---- ------------------------ + V6.3.9 + + - fixed: recursive loop in index first/last + - fixed: index resync current record + - fixed: resync range at eof + - fixed: index findkey finds last, deleted key in index page + - fixed: opening dbf file with numeric integer field misreads numbers + + + ------------------------ V6.3.8 *************** *** 59,67 **** **Version .1: - fixed: recursive loop in setrange - **Version .2: - - fixed: recursive loop in index first/last - - fixed: index resync current record - - fixed: resync range at eof - - fixed: index findkey finds last, deleted key in index page --- 69,72 ---- Index: dbf_common.pas =================================================================== RCS file: /cvsroot/tdbf/tdbf/dbf_common.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** dbf_common.pas 23 Aug 2004 18:03:11 -0000 1.4 --- dbf_common.pas 29 Aug 2004 14:37:36 -0000 1.5 *************** *** 18,22 **** const TDBF_MAJOR_VERSION = 6; ! TDBF_MINOR_VERSION = 38; TDBF_SUB_MINOR_VERSION = 0; --- 18,22 ---- const TDBF_MAJOR_VERSION = 6; ! TDBF_MINOR_VERSION = 39; TDBF_SUB_MINOR_VERSION = 0; |