I can not compile your codethefull wrote:Hi Enrico
I use NTX, and Harbour 3.2 i don't problem.
New code.
Code: Select all
REQUEST DBFNTX REQUEST HB_MEMIO function Main() rddsetdefault( 'DBFNTX' ) // RDD NTX test_memio() return nil /* Create file dbf and ntx/ in memory */ function test_memio() dbcreate( "mem:test.dbf", { { "F1", "N", 10, 0 }, { "F2", "N", 10, 0 } } ) use "mem:test.dbf" alias memtest index on field->f2 to "mem:tmp1.ntx" DESCENDING for i := 1 to 100000 append blank memtest->f1 := i memtest->f2 := i * 100 next go top browse() dbDrop( "mem:test.dbf" ) /* Free memory resource */ dbDrop( "mem:tmp1.ntx" ) /* Free memory resource */ return nil
as
BUILDH memio.prg