Discussion :

[paulfr]

Bonjour,

Soit une série de procédures en cascade dont la dernière déclenche un Exit :

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
23
24
25
26
procedure Proc2 ;
begin
   ...
   ...
   if  ... then Exit;
   ...
   ...
end ; 
 
procedure Proc1 ;
begin
   ...
   ...
   procedure Proc2 ;
   ...
   ...
end ;
 
procedure PROCprimaire ;
begin
   ...
   ...
   procedure Proc1 ;
   ...
   ...
end ;

Quelle est la solution la plus élégante pour remonter en amont de la procédure primaire ?

Merci pour vos suggestions.

[pepi22]

La série doit-elle être obligatoirement des procédures?

Si non, transformer en function qui renvoit un type booléen.

Je ne sais pas si c'est la façon la plus élégante mais bon :

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
 
function FuncPrimaire: boolean;
begin
 
  if Func1 then
   begin
 
   end;
 
end;
 
function Func1: boolean;
begin
 
  if Func2 then
   begin
 
   end;
 
end;

[dragonno]

Si tu veux remonter à ta procédure primaire ça va ressembler à une boucle^^
Alors se demander si tu peut pas faire ça avec une boucle classique.
Sinon savoir à quoi ça sert ça peut servir pour trouver une meilleure solution.

[sjrd]

Euh, m'est avis que tu cherches en fait les exceptions.

[paulfr]

Bonjour,

Mersi pour votre suggestion :

Euh, m'est avis que tu cherches en fait les exceptions

Je suppose qu'il n'y a pas d'autre solution.

PL

[Paul TOTH]

Bonjour,

Mersi pour votre suggestion :


Je suppose qu'il n'y a pas d'autre solution.

PL

en fait c'est la meilleur ! là on ça devient compliqué c'est si tu veux définir plusieurs niveau de "remontée"

[Franck SORIANO]

Je suppose qu'il n'y a pas d'autre solution.

Ca pourrait se faire avec quelques lignes d'assembleur. Sur le principe, il suffit de restaurer la pile et de sauter à l'adresse où tu veux reprendre l'exécution.

Mais d'une part ça implique que tu saches à quel endroit tu veux reprendre. Et d'autre part, tu vas bypasser ainsi l'epilogue des procédures que tu vas courcircuiter, bypasser les finally qu'elles auraient pu définir...
et de toute façon, maintenant qu'on dispose des exceptions, je ne vois pas l'intérêt de faire une telle chose.

[paulfr]

Aprés avoir utilisé une variable boolénne, ce qui demandait plusieurs étapes ascendantes, j'ai essayé une exception trés simple.
J'ai eu la surprise d'une solution simple et élegante qui me ramène directement
au "menu" de mon programme, ce que je cherchais.

Merci à tous PL