FUNCTION Start() AS VOID
LOCAL cDbf AS STRING
cDbf := "c:\test\vfpdbf.dbf"
? DbCreate(cDbf,{{"VARCHAR","V",10,0}},"DBFVFP")
? DbUseArea(TRUE,"DBFVFP", cDbf)
FieldPut(1,"Abc")
LOCAL cVarChar AS STRING
cVarChar := FieldGet(1)
? cVarChar, cVarChar:Length // 10 characters, should be 3