[tdbf-cvs] tdbf dbf_dbffile.pas,1.5,1.6 history.txt,1.72,1.73

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

Update of /cvsroot/tdbf/tdbf
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28062

Modified Files:
	dbf_dbffile.pas history.txt 
Log Message:
fixed: storage of foxpro binary integer field

Index: history.txt
===================================================================
RCS file: /cvsroot/tdbf/tdbf/history.txt,v
retrieving revision 1.72
retrieving revision 1.73
diff -C2 -d -r1.72 -r1.73
*** history.txt	29 Aug 2004 14:37:36 -0000	1.72
--- history.txt	31 Aug 2004 13:34:57 -0000	1.73
***************
*** 41,44 ****
--- 41,45 ----
  - fixed: index findkey finds last, deleted key in index page
  - fixed: opening dbf file with numeric integer field misreads numbers
+ - fixed: storage of foxpro binary integer field
  
  

Index: dbf_dbffile.pas
===================================================================
RCS file: /cvsroot/tdbf/tdbf/dbf_dbffile.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** dbf_dbffile.pas	23 Aug 2004 19:13:26 -0000	1.5
--- dbf_dbffile.pas	31 Aug 2004 13:34:56 -0000	1.6
***************
*** 1583,1591 ****
      '+', 'I':
        begin
!         if Src = nil then
!           IntValue := 0
!         else
!           IntValue := Integer(PDWord(Src)^ + $80000000);
!         PInteger(Dst)^ := SwapInt(IntValue);
        end;
      'O':
--- 1583,1599 ----
      '+', 'I':
        begin
!         if FDbfVersion <> xFoxPro then
!         begin
!           if Src = nil then
!             IntValue := 0
!           else
!             IntValue := Integer(PDWord(Src)^ + $80000000);
!           PInteger(Dst)^ := SwapInt(IntValue);
!         end else begin
!           if Src = nil then
!             PInteger(Dst)^ := 0
!           else
!             PInteger(Dst)^ := PInteger(Src)^;
!         end;
        end;
      'O':