Hello,
Mindaugas Kavaliauskas wrote:
> 
> Can you try to make self contained sample by changing real report to 
> some simple DBAPPEND(), FIELDPUT()? I can not reproduce such bahaviour.
> 

Here is the code, though not portraying the exact problem 
I stated, but may be the results may give some clues:

REQUEST HB_MEMIO

PROC Main()
   LOCAL nI
   FIELD F1

   DBCREATE("mem:\test.dbf", {{"F1", "N", 9, 0}},, .T., "memarea")
   FOR nI := 1 TO 1000
     DBAPPEND();  F1 := HB_RANDOM() * 1000000
   NEXT
   INDEX ON F1 TAG f1 TO "mem:\test.z01"
   DBEVAL({|| QOUT(F1)})

   ? alias(), used(), dbInfo( 10 )
   ? "dbDrop()      =>", DBDROP("mem:\test")         // Free memory resource
   ? alias(), used(), dbInfo( 10 )                          // This SHOULD
PRODUCE ERROR 
   DbGotop()                                                    //  if
DbDrop() returns TRUE
   ? fieldget( 1 )                                               //  NOTE: I
have not closed the area
   DbSkip()
   ? fieldget( 1 )

   ? "DbCloseArea() =>", DBCLOSEAREA()
   ? alias(), used(), dbInfo( 10 )

   ? 'Press a key when done'
   inkey( 0 )
   RETURN


Regards
Pritpal Bedi
-- 
View this message in context: 
http://www.nabble.com/MEMIO---Some-Clarifications-tp25639924p25675247.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to