Hi,
snaipe...@users.sourceforge.net wrote:
2009-12-04 15:55 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/src/rdd/dbf1.c
! fixed variable length field setting after DBCREATE()
I hope I didn't break some important part of Harbour. Please test. Here
is my test code (hex viewer would be also useful).
Regards,
Mindaugas
#include "dbinfo.ch"
REQUEST DBFCDX
PROC main()
FIELD F
RDDSETDEFAULT("DBFCDX")
DBCREATE("test183", {{"F", "Q", 4, 0}},, .T., "test183")
DBAPPEND()
F := "abc"
? LEN(F), HB_STRTOHEX(F)
? HB_STRTOHEX(DBRECORDINFO(DBRI_RAWRECORD))
DBAPPEND()
F := "1234"
DBDELETE()
? LEN(F), HB_STRTOHEX(F)
? HB_STRTOHEX(DBRECORDINFO(DBRI_RAWRECORD))
DBGOTOP()
? LEN(F), HB_STRTOHEX(F)
? HB_STRTOHEX(DBRECORDINFO(DBRI_RAWRECORD))
DBCLOSEAREA()
DBUSEAREA(.T.,, "test183")
? LEN(F), HB_STRTOHEX(F)
? HB_STRTOHEX(DBRECORDINFO(DBRI_RAWRECORD))
DBCLOSEAREA()
RETURN
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
