IF USED([Test])
USE IN Test
ENDIF
CREATE CURSOR test(cName c(10),cCode c(10))
PRIVATE m.Begin
m.Begin=SECONDS()
FOR m.j=1 TO 1000000
FOR m.i=1 TO FCOUNT("test")
m.y=FIELD(i,[Test])
ENDFOR
ENDFOR
m.End=SECONDS()
?[FCOUNT():]+STR(M.end-M.Begin,12,3) &&显示1.922
m.Begin=SECONDS()
FOR m.j=1 TO 1000000
FOR m.i=1 TO 2
m.y=FIELD(i,[Test])
ENDFOR
ENDFOR
m.End=SECONDS()
?[Var():]+STR(M.end-M.Begin,12,3) &&1.641
m.Begin=SECONDS()
m.nFount=FCOUNT("test")
FOR m.j=1 TO 1000000
FOR m.i=1 TO m.nFount
m.y=FIELD(i,[Test])
ENDFOR
ENDFOR
m.End=SECONDS()
?[nFount():]+STR(M.end-M.Begin,12,3) &&1.687
m.Begin=SECONDS()
m.nFount=AFIELDS(aTest,"Test")
FOR m.j=1 TO 1000000
FOR m.i=1 TO m.nFount
m.y=aTest[i]
ENDFOR
ENDFOR
m.End=SECONDS()
?[aTest():]+STR(M.end-M.Begin,12,3) &&1.266
m.Begin=SECONDS()
m.nFount=AFIELDS(aTest,"Test")
FOR j=1 TO 1000000
FOR i=1 TO nFount
y=aTest[i]
ENDFOR
ENDFOR
m.End=SECONDS()
?[Not M.:]+STR(M.end-M.Begin,12,3) &&1.297