Discussion :

[cretindezalpes]

Bonjour, j'ai un petit souci dont je ne sais pas comment me dépétrer.

J'ai une classe

Code :

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

1
2
3
4
 TClasse_Parent=Class
 public
  procedure Creer_Branche(); virtual;
 end;

La fonction Creer_Branche s'appelle de manière récursive. J'ai également une classe enfante qui surchage Creer_Branche.

Code :

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

1
2
3
4
 TClasse_Enfante=Class
 public
  procedure Creer_Branche(); override;
 end;

Mais qui rappelle l'inherited Creer_Branche ponctuellement. ET c'est là qu'apparait mon souci. L'inherited Creer_Branche, au lieu de s'appeller de manière récursive appelle... la fonction surchargée. Existe-t-il un moyen d'éviter ce genre de comportement ?

Merci d'avance

[TicTacToe]

Salut,

Le comportement est tout à fait normal à mon sens. C'est purement la logique object que la méthode "redescende" et appelle la fonction de l'enfant.
et faire une fonction récursive sur une méthode héritée.... selon la position du inherited dans les enfants, je pense que c'est difficilement maitrisable

Par contre, pour palier à ce problème, tu peux faire une 2eme méthode interne et non héritable dans ta classe parent (private même) qui sera récursive et appelée depuis le "Créer_Branche" de ton parent (et donc indirectement de l'enfant aussi via le inherited).

De cette manière, la récursivité se passera uniquement au niveau de la classe parent.

du style:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 TClasse_Parent=Class
 private
  procedure Methode_Recursive;
 public
  procedure Creer_Branche; virtual;
 end;
 
 TClasse_Enfant=Class( TClasse_Parent)
 public
  procedure Creer_Branche; override;
 end;

avec

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
procedure TClasse_Parent.Methode_Recursive;
begin
       // ...
       Methode_Recursive;
       // ...
end;
 
procedure TClasse_Parent.Creer_Branche;
begin
       // ...
       Methode_Recursive 
       // ...
end;
 
procedure TClasse_Enfant.Creer_Branche;
begin
       // ...
       inherited;
       // ...
end;

Je sais pas si j'ai répondu à ton problème !

[cretindezalpes]

Merci pour ta réponse.

En fait, j'ai fait plus simple ^^.

J'ai renommé la procédure avec un nom différent dans ma classe enfant. Du coup, plus de souci. Il faut juste que je me rappelle au moment où je code quelle fonction appeler suivant ce que je veux.