Bug in PACK command

[Enrico Maria Giordano]

This is the sample:

Code: Select all  Expand view  RUN

#include "Fwce.ch"


FUNCTION MAIN()

    DBCREATE( CURDIR() + "\TMPTEST", { { "TEST", "C", 10, 0 } } )

    USE ( CURDIR() + "\TMPTEST" )

    APPEND BLANK

    REPLACE FIELD -> test WITH "Test 1"

    APPEND BLANK

    REPLACE FIELD -> test WITH "Test 2"

    DELETE

    PACK

    CLOSE

    MSGINFO( "Done!" )

    RETURN NIL

It seems that PACK recovers deleted flag instead of to remove the deleted record.

Probably it is a bug in Harbour_CE. It is working fine with current Harbour from CVS.

EMG

[Richard Chidiak]

Enrico

Pack works OK you have to add

SET DELETE ON

Regards

Richard

[Enrico Maria Giordano]

No, SET DELETED ON is not required for PACK to work. Anyway, I just tried with SET DELETED ON and found the same result.

I'm using FWPPC 7.02.

EMG

[Antonio Linares]

Enrico,

Changing your code this way:

PACK

MsgInfo( RecCount() )

It shows 1, which it seems correct

[Enrico Maria Giordano]

Yes, but now try to open TMPTEST.DBF and you will see that there are two records.

EMG

[Enrico Maria Giordano]

This is the modified sample showing that the record is not removed:

Code: Select all  Expand view  RUN

#include "Fwce.ch"


FUNCTION MAIN()

    SET DELETED ON

    DBCREATE( CURDIR() + "\TMPTEST", { { "TEST", "C", 10, 0 } } )

    USE ( CURDIR() + "\TMPTEST" )

    APPEND BLANK

    REPLACE FIELD -> test WITH "Test 1"

    APPEND BLANK

    REPLACE FIELD -> test WITH "Test 2"

    DELETE

    PACK

    CLOSE

    USE ( CURDIR() + "\TMPTEST" )

    MSGINFO( RECCOUNT() )

    CLOSE

    MSGINFO( "Done!" )

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

It is related to the SD memory card. Copy the EXE to the Pocket PC root path and it works fine there

[Enrico Maria Giordano]

Sorry, I haven't a pocket PC. How can I do the same using the emulator?

EMG

[Antonio Linares]

Enrico,

Keep the mouse pressed on top of the EXE until a popup is shown, then select copy. Then select "My Device" from the top menu of the file explorer and right click and select paste. Then run it there.

[Enrico Maria Giordano]

Yes, this way it works. Unfortunately, this makes the emulator much less useful. I wonder if there is a way to get the program to run correctly on the storage card...

EMG

[Antonio Linares]

Enrico,

Harbour uses the same functions to manage files when it runs on the memory card, so its a difference on the Windows Mobile OS