Code: Alles auswählen
Procedure.l Statc()
Static c.l=0
c+1
ProcedureReturn c
EndProcedure
Procedure.l Statx()
Static c.l
c=0
c+1
ProcedureReturn c
EndProcedure
For i=1 To 10
Debug Statc()
Next
For i=1 To 10
Debug Statx()
Next
