Hi all, Przemek,
Attached you can see a xHarbour test ( HB_MEM_BLOCKS doesn't exist in
Harbour FM.C ) that shows how memory blocks go increasing when we call
DbUseArea() with new file name.
Is it a normal behavior ?
Many thanks
Juan
#include "hbmemory.ch"
#define MAXTEST 5
REQUEST DBFCDX
FUNCTION Main()
LOCAL nCount, cDbf
? 'Used blocks 1 -> ' + AllTrim( Str( Memory( HB_MEM_BLOCKS ) ) )
FOR nCount := 1 TO MAXTEST
cDbf := '_F' + AllTrim( Str( nCount, 6 ) )
DbCreate( cDbf, { {"One", "C", 2, 0} } )
DbUseArea( .T., "DBFCDX", cDbf )
DbCloseArea()
? 'Used blocks 2 -> ' + AllTrim( Str( Memory( HB_MEM_BLOCKS ) ) )
NEXT nCount
RETURN nil
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
