Code: Alles auswählen
EnableExplicit
#cntMax = 30000
NewMap MyMap (#cntMax)
Define time1, time2
Define i
time1 = ElapsedMilliseconds()
For i = 1 To #cntMax
AddMapElement (MyMap(), "x" + i)
Next
time1 = ElapsedMilliseconds() - time1
time2 = ElapsedMilliseconds()
ForEach MyMap()
DeleteMapElement (MyMap())
;NextMapElement (MyMap())
Next
time2 = ElapsedMilliseconds() - time2
MessageRequester ("", "" + time1 + #CRLF$ + time2)
Getestet Win7