PureBasic

Code : Tout sélectionner

;####################

Structure Repertoire 
  nom.s
  age.w
  *next.Repertoire
EndStructure

NewList MaListe.Repertoire()

;initialisation d'une liste 
Define.Repertoire *head, *element
*head = AllocateMemory(SizeOf(Repertoire))
*head\next = #Null

;---------;ajoute element à la liste (1)
*element = AllocateMemory(SizeOf(Repertoire))
*head\next = *element
*element\next=#Null

;remplissage
*element\nom = "Titi"

*element = *head
While *element\Next
  *element = *element\next 
Wend

;--------;ajoute element à la liste (fin de liste : (2))
*element\next  = AllocateMemory(SizeOf(Repertoire))
*element =*element\next
*element\next=#Null

;remplissage
*element\nom = "Toto"

;--------;ajoute element à la liste (3)
*element\next  = AllocateMemory(SizeOf(Repertoire))
*element =*element\next
*element\next=#Null

;remplissage
*element\nom = "Lolo"

;######### C'EST ICI QUE JE COINCE ################

;----- Ajoute en Deuxième position
*element = AllocateMemory(SizeOf(Repertoire))

;????
*element\next = *head\Next
*head\next = *element

;remplissage
*element\nom = "Nono"  ;----------->Nono SE MET en 1er alors qu'il devrait etre en seconde position
                        ;--Où est l'erreur ? SVP
;##################################################

;liste les elements
*element = *head
While *element\Next
     *element = *element\next 
     Debug *element\nom 
     
Wend

Code : Tout sélectionner

Structure Repertoire
	nom.s
	age.w
	*next.Repertoire
EndStructure
Global *head.Repertoire, *element.Repertoire

Procedure AddElement_(nom.s, age.w)
	If *element = #Null
		*element = AllocateMemory(SizeOf(Repertoire))
		*head = *element
	Else
		*element\next = AllocateMemory(SizeOf(Repertoire))
		*element = *element\next
	EndIf
	*element\nom = nom
	*element\age = age
	*element\next = #Null
EndProcedure

Procedure InsertElement_(Position.l, nom.s, age.w)
	Protected *element.Repertoire = *head
	While Position And *element
		*Old.Repertoire = *element
		Position - 1 : *element = *element\next
	Wend
	If *element
		*insert.Repertoire = AllocateMemory(SizeOf(Repertoire))
		*insert\nom = nom
		*insert\age = age
		*insert\next = *element
		If *Old
			*Old\next = *insert
		Else
			*head = *insert
		EndIf
	Else
		AddElement_(nom, age)
	EndIf
EndProcedure

AddElement_("Titi", 10)
AddElement_("Toto", 12)
AddElement_("Lolo", 15)
;/ Ajout en deuxième position (la liste commence à 0)
InsertElement_(2, "Nono", 13)
;liste les elements
*element = *head
While *element
	Debug *element\nom
	*element = *element\next
Wend