Code : Tout sélectionner
Procedure EchoArray(MyArray.s(1))
For x.l = 0 To 3
Debug MyArray(x)
Next x
EndProcedure
Code : Tout sélectionner
Procedure EchoArray(MyArray.s(1))
For x.l = 0 To 3
Debug MyArray(x)
Next x
EndProcedure
Code : Tout sélectionner
Procedure EchoArray(Array MyArray.s(1))
size = ArraySize(MyArray())
For x.l = 0 To size
Debug MyArray(x)
Next x
EndProcedure
Dim MonArray.s(45)
For tmp_a = 0 To 45
MonArray(tmp_a) = Chr(48 + tmp_a)
Next
EchoArray(MonArray())