[tdbf-cvs] tdbf dbf.pas,1.2,1.3 dbf_pgfile.pas,1.1,1.2

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

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

Modified Files:
	dbf.pas dbf_pgfile.pas 
Log Message:
fix store userstream if creating table with nil userstream

Index: dbf_pgfile.pas
===================================================================
RCS file: /cvsroot/tdbf/tdbf/dbf_pgfile.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dbf_pgfile.pas	18 Aug 2004 20:00:41 -0000	1.1
--- dbf_pgfile.pas	23 Aug 2004 07:49:50 -0000	1.2
***************
*** 271,275 ****
        FreeAndNil(FStream);
  
!     // mode possibly overriden in case of auto-created file
      FMode := FUserMode;
      FActive := false;
--- 271,275 ----
        FreeAndNil(FStream);
  
!     // mode possibly overridden in case of auto-created file
      FMode := FUserMode;
      FActive := false;

Index: dbf.pas
===================================================================
RCS file: /cvsroot/tdbf/tdbf/dbf.pas,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** dbf.pas	19 Aug 2004 09:58:05 -0000	1.2
--- dbf.pas	23 Aug 2004 07:49:49 -0000	1.3
***************
*** 1424,1427 ****
--- 1424,1431 ----
        FDbfFile.FinishCreate(DbfFieldDefs, 512);
  
+       // if creating memory table, copy stream pointer
+       if FStorage = stoMemory then
+         FUserStream := FDbfFile.Stream;
+ 
        // create all indexes
        for I := 0 to FIndexDefs.Count-1 do
***************
*** 1433,1437 ****
      except
        // dbf file created?
!       if FDbfFile <> nil then
        begin
          FreeAndNil(FDbfFile);
--- 1437,1441 ----
      except
        // dbf file created?
!       if (FDbfFile <> nil) and (FStorage = stoFile) then
        begin
          FreeAndNil(FDbfFile);