[tdbf-cvs] tdbf dbf_common.pas,1.4,1.5 dbf_fields.pas,1.4,1.5 history.txt,1.71,1.72

[Micha N. <md...@us...>]

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;