Code: Select all
Structure SmallStruct
A.b
B.b
C.l
D.l
E.l
EndStructure
Procedure Funktion( *Value.SmallStruct )
Protected Temp.l
Temp.l+*Value\A
Temp.l+*Value\B
Temp.l+*Value\C
Temp.l+*Value\D
*Value\E=Temp.l
EndProcedure
Procedure MyProcedure2(Value1.l,Value2.b,Value3.w)
Static TehStruct.SmallStruct
For i=0 To Value1
TehStruct\C=TehStruct\B-i
TehStruct\D=TehStruct\C+i
Funktion(@TehStruct)
Next
ProcedureReturn Value3=Value2
EndProcedure
Time.l=ElapsedMilliseconds()
For a=0 To 1000
MyProcedure2(a,a%255,a)
Next
Time=ElapsedMilliseconds()-Time
MessageRequester("Zeit:",Str(Time))
Good Job Fred (I know that it isn't Teh^^)
(It can be that the results vary very much, but in General Pb 4.0 seems to be faster, it also even smaller^^)


