Publié : jeu. 30/sept./2004 22:04
Moi non plus, je viens de me rendre compte que je me suis compliqué; car si on inverse les deux champs de la structure, ça ne fonctionne plus.
Forcément, comme ça fait plusieurs jours que j'y suis, j'ai pu rectifier tout de suite.
[EDIT] Encore modifié
Forcément, comme ça fait plusieurs jours que j'y suis, j'ai pu rectifier tout de suite.
Code : Tout sélectionner
;Shéma d'une liste chaînée simple
;structure avec 1 seul pointeur pointant vers l'élément suivant
Structure liste
*suivant.liste
nom.s
EndStructure
*nouveau=AllocateMemory(SizeOf(liste))
*Pointeur_debut.liste=*nouveau
*pointeur.liste=*nouveau
*pointeur\nom="David"
*nouveau=AllocateMemory(SizeOf(liste))
*pointeur\suivant=*nouveau
*pointeur.liste=*nouveau
*pointeur\nom="Nicolas"
*nouveau=AllocateMemory(SizeOf(liste))
*pointeur\suivant=*nouveau
*pointeur.liste=*nouveau
*pointeur\nom="Paul"
*nouveau=AllocateMemory(SizeOf(liste))
*pointeur\suivant=*nouveau
*pointeur.liste=*nouveau
*pointeur\nom="Pierre"
*nouveau=AllocateMemory(SizeOf(liste))
*pointeur\suivant=*nouveau
*pointeur.liste=*nouveau
*pointeur\nom="Tony"
Debug *Pointeur_debut\nom
*pointeur1.liste=*Pointeur_debut\suivant
Debug *pointeur1\nom
*pointeur1.liste=*pointeur1\suivant
Debug *pointeur1\nom
*pointeur1.liste=*pointeur1\suivant
Debug *pointeur1\nom
*pointeur1.liste=*pointeur1\suivant
Debug *pointeur1\nom