Structure et pointeur

[nico]

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.

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

[EDIT] Encore modifié