Discussion :

[BBouille]

Bonjour les amis,
J'ai traduit et essayé de comprendre le code d'un arbre n-aire que j'ai trouvé ici http://www.chambily.com/recursivite/chap_VII_4.htm dont je remercie l'auteur.
Par contre je ne suis pas fichu de lire séparément les fils d'un noeud (encadrés en rouge sur l'image).

Mon but est, par exemple lors d'un joker dans un mot, de trouver toutes les lettres qui pourraient remplacer le joker. On parcourt E puis P et là comment lire les fils de P?
Sans doute y a-t-il un autre moyen.
En vous remerciant.

[anapurna]

salut

tu veux lire les fils de EP au premier niveau

donc tu cherche EP et ensuite tu affiche les fils attaché au mots
cela devrais etre un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Procedure Arbre.AfficheFilsPremierNiveaux(LeMot : String);
Begin
  if trouve(LeMot) Then 
    for i := 'A' to 'Z' do
    If courant.fils[i]<>nil  The 
    Begin
       Affiche(courant.fils[i].Lettre);
    End;
End;

[BBouille]

Ouiii merci Anapurna,
Quelques minutes après avoir posté je me suis rendu compte d'une erreur mais qui était antérieure à l'appel de la fonction.
Ca pourra peut-être servir à d'autres surtout pour le lien vers les arbres n-aires et son auteur et ta réponse
Encore merci.