Valtype and type show differrent result (sample below). Who is wrong me, valtype or type?

FUNCTION main(  )

  LOCAL str_sep := "()", yy_sep, xx_sep, xy

  local str_arr:='("ID","C",1,0)("CVAR","C",20,0)("ZVAR","C",100,0)'
  xx_sep := NumToken( str_arr, str_sep )
  for ii := 1 TO xx_sep
     ss := token( str_arr, str_sep, ii )
     ?ss
     yy_sep := NumToken( ss, "," )
     IF yy_sep == 4
        for y := 1 TO yy_sep
            xy := token(ss,",",y)
            ?y,xy,valtype(xy),type(xy)
        next
     ENDIF
  next
  RETURN nil


My result is

C:\hrb\test\token\>testtoken.exe

"ID","C",1,0
        1 "ID" C C
        2 "C" C C
        3 1 C N
        4 0 C N
"CVAR","C",20,0
        1 "CVAR" C C
        2 "C" C C
        3 20 C N
        4 0 C N
"ZVAR","C",100,0
        1 "ZVAR" C C
        2 "C" C C
        3 100 C N
        4 0 C N

Regards,
Alexey Myronenko
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to