[tdbf-cvs] tdbf Dbf.pas,1.78,1.79 history.txt,1.57,1.58

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

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

Modified Files:
	Dbf.pas history.txt 
Log Message:
fixed: crash when calling {un,}locktable on closed dataset (rep by sysklop)

Index: history.txt
===================================================================
RCS file: /cvsroot/tdbf/tdbf/history.txt,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -d -r1.57 -r1.58
*** history.txt	18 Aug 2004 12:55:59 -0000	1.57
--- history.txt	18 Aug 2004 12:57:58 -0000	1.58
***************
*** 47,50 ****
--- 47,51 ----
  - fixed: set physicalrecno to non-existing recno corrupts table (rep by luchop)
  - fixed: tryexclusive/packtable/endexclusive fail because of memo (rep by sysklop)
+ - fixed: crash when calling {un,}locktable on closed dataset (rep by sysklop)
  
  

Index: Dbf.pas
===================================================================
RCS file: /cvsroot/tdbf/tdbf/Dbf.pas,v
retrieving revision 1.78
retrieving revision 1.79
diff -C2 -d -r1.78 -r1.79
*** Dbf.pas	9 Aug 2004 16:48:16 -0000	1.78
--- Dbf.pas	18 Aug 2004 12:57:52 -0000	1.79
***************
*** 1249,1252 ****
--- 1249,1255 ----
  function TDbf.LockTable(const Wait: Boolean): Boolean;
  begin
+   if FDbfFile = nil then
+     exit;
+ 
    Result := FDbfFile.LockAllPages(Wait);
  end;
***************
*** 1254,1257 ****
--- 1257,1263 ----
  procedure TDbf.UnlockTable;
  begin
+   if FDbfFile = nil then
+     exit;
+ 
    FDbfFile.UnlockAllPages;
  end;