Discussion :

[Darkyl]

Bonjour,

comment arréter toutes les fonctions récursives qui portent le même nom?

Je m'explique: j'ai une fonction qui s'appelle elle-même, mais à chaque execution, elle peut appeler plusieurs elles-mêmes avec des paramètres différents en même-temps. J'aimerais qu'arriver à une condition dans ma fonction, je puisse tout arréter et renvoyer quelque chose.

j'arrive à renvoyer quelque chose mais une autre fonction continue pendant ce temps la...

Je sais pas si j'ai été clair
Merci

[Andnotor]

Générer une exception.

Code :

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

Raise Exception.Create('Erreur');

[Darkyl]

oui mais cela ne vas arréter que la fonction qui l"a appelé mais celles qui ont été déclenché avant tourneront toujours..

[Andnotor]

Raise déclenche un exception qui sera remontée jusqu'à un gestionnaire d'exception (try except) et à moins que tu passes par des threads, l'enchaînement de tes appels seront synchrones (l'un après l'autre). ça doit fonctionné

[Darkyl]

merci, j'essaierai et je confirme ou pas si ca marche.croisons les doigts..

[Darkyl]

re

dsl j'ai mis un peu de temps.

Cela ne marche pas... Quand j'arrive à la premiere solution, il ne m'arrète pas la recherche des autres solutions (autrement dit des autres fonctions récursives toujours lancées)...

Si quelqu'un à d'autres solutions...

A moins que j'ai fait une erreur...

[Just-Soft]

Salut;

La méthode classique; un booléen qui teste le résultat s'il est à faux on continue sinon un Exit.

[Andnotor]

Comment savoir si tu as fait une erreur sans connaitre ton code .

Tu as peut-être déjà un gestionnaire d'exception au niveau de ta procédure sans pour autant faire un re-Raise pour la remonter à la racine (le premier appel).

[GoustiFruit]

Ben oui, le classique marche toujours: une variable globale qu'on teste, ou une variable passée en paramètre.

Code :

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

1
2
3
4
5
6
7
function Test(var i: integer): integer;
begin
  if i >= iMax then
    Exit;
 
  Result := Test(i + 1);
end;

[Darkyl]

Je sais pas si je me suis bien expliqué. J'ai une fonction qui appelle plusieurs elles-mêmes du style:

Code :

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

1
2
3
4
5
6
 
procedure truc(a)
begin
truc(a-1);
truc(a+1);
end;

j'ai donc un arbre qui va se créer et pas seulement une chaine. Hors, à un moment donné, je vais tombé sur une solution, et il faut que j'arrète tout, toutes les precdure truc...

[Dr.Who]

alors il faut faire une boucle plutot que d'utiliser la recursivité.

1 - stopable par un seul Break/Exit
2 - performant
3 - pas d'erreur de stack overflow

[Darkyl]

heu je vois pas tro comment faire avcec des boucles... Je ne sais pas quelle taille fera mon arbre. Je cherche a trouver un chemin dans un arbre pour aller de A à B. J'avance et des que j'ai plusieurs choix pour poursuivre, je lances plusieurs procédures. En théorie, des que j'atteins une solution, si j'arrive à arréter tout et donner mon chemin, ce sera forcément le plus courtv et ce sans calcul tro fastidieu. Avec des boucles, c'est impossible tout ca.

[Dr.Who]

[ame]http://fr.wikipedia.org/wiki/Arbre_binaire[/ame]

la methode itérative infixe :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
VisiterInfixeIteratif(racine)
    precedent    := null
    actuel       := racine
    suivant      := null
 
    Tant que (actuel != null) Faire
        Si (precedent == pere(actuel)) Alors
            precedent := actuel
            suivant   := gauche(actuel)
        FinSi
        Si (suivant == null OU precedent == gauche(actuel)) Alors
            Visiter(actuel)
            precedent := actuel
            suivant   := droite(actuel)
        FinSi
        Si (suivant == null OU precedent == droite(actuel)) Alors
            precedent := actuel
            suivant   := pere(actuel)
        FinSi
        actuel := suivant
    FinTantQue

[sjrd]

Non non mais vous vous emballez.

Une exception déclenchée avec raise et attrapée au plus haut niveau de la récursion avec un try..except fonctionnera très bien.
Tu as dû te planter en écrivant ton gestionnaire.

Peux-tu nous montrer ton code, avec surtout les parties où tu as mis le raise et le try..except ?

[Darkyl]

dsl du temps mais j'ai revu entièrement le projet et je ne suis pas encore arriver à cette procédure mais je pense que je vais faire une version statique de cette fonction (que je voulais dynamique).

C'est à dire que je vais utiliser des composants pour enregistrer mes différents chemins. Je vais laisser courir mes multiples fonctions récursives jusqu'à la fin (au lieu de tout arréter dés que j'ai une solution) et une fois fini, je compare les distances de tous les chemins trouvés et je renvoie le plus court... Pas trés optimisé, surtout si j'ai beaucoups de routes avec des noeuds communs.. Faudra que je voit à quelle vitesse ca tourne en pratique...