Code: Select all
; test results are on a cheap old laptop
Structure dbwin_buffer
dwProcessID.l
Data.s{4096-SizeOf(long)} ; can't really use this, need ascii, so just for reference
EndStructure
Debug "List test"
s = ElapsedMilliseconds()
NewList mno.dbwin_buffer()
For x = 1 To 10000
AddElement( mno() )
Next
Debug ElapsedMilliseconds()-s ; 40 ms
Debug "Arrays"
Debug "ABC test"
s = ElapsedMilliseconds()
Dim abc(0)
For x = 1 To 10000
ReDim abc( ArraySize(abc()) + 1 ) ; 2 ms
Next
Debug ElapsedMilliseconds()-s
Debug "Now XYZ"
s=ElapsedMilliseconds()
Dim xyz.dbwin_buffer(0)
For x = 1 To 10000
ReDim xyz( ArraySize(xyz()) + 1 )
Next
Debug ElapsedMilliseconds()-s ; 260 seconds
Debug "Done"