Hier mein Code
Code: Alles auswählen
Structure MyStructure
Integer.i
String.s
Float.f
EndStructure
Define i, StartTime1, StartTime2, ElapsedTime1, ElapsedTime2, Resultat.s
Define Struct.MyStructure, *Struct.MyStructure = AllocateStructure(MyStructure)
;===========================================================================
StartTime1 = ElapsedMilliseconds()
For i=1 To 5000000
Struct\String = "abcdefghijklmnopqrstuvwxyz"
Struct\Integer = Random(123456789)
Struct\Float = Random(123456789)
Next
ElapsedTime1 = ElapsedMilliseconds()-StartTime1
;===========================================================================
StartTime2 = ElapsedMilliseconds()
For i=1 To 5000000
*Struct\String = "abcdefghijklmnopqrstuvwxyz"
*Struct\Integer = Random(123456789)
*Struct\Float = Random(123456789)
Next
ElapsedTime2 = ElapsedMilliseconds()-StartTime2
;===========================================================================
Resultat + "Variablezugriffe brauchten: " + Str(ElapsedTime1) + Chr(13)
Resultat + "Pointerzugriffe brauchten: " + Str(ElapsedTime2)
MessageRequester("Resultat", Resultat, 0)
FreeStructure(*Struct)
Code: Alles auswählen
Variablezugriffe brauchten: 689
Pointerzugriffe brauchten: 694
Debugger war natürlich OFF!
