*======================================================================================== * Tests raw speed of loops using "m." *======================================================================================== ? "Please wait..." ? FOR i = 1 TO 5 Local lnStart, lnCount lnStart = Seconds() lnCount = 0 Do While m.lnCount < 5000000 m.lnCount = m.lnCount + 1 EndDo ? i, Seconds()-lnstart, "sec. for 5,000,000 iteration" ENDFOR ? "Ready"
VFP 9 SP1 2.5 seconds Guineu 2.1 seconds VFP Compiler 1.7 secondsThis was on 3700+ PC