Code : Tout sélectionner
Global page.c
Structure test
x.l
y.l
page.b
EndStructure
Global Dim img.test (10)
img (1)\x = 10
img (1)\y = 20
img (1)\page = 155
For t=1 To 1
page = img(t)\page
Next t
If page = 155
Debug "youpi, y'a encore un autre bug !"
EndIf
Debug page
Debug img(1)\page
Voici plusieurs bugs :
* Les types ne sont pas les memes, et "page" dans la structure img ne peut depasser 127 !
* La valeur retourner dans debug => -101 mais page = 155 !
C'était des durs à cuire ceux-la !