En Delphi: Comment trouver la profondeur de récursivité sans utiliser de paramètre?

Question

Lorsque je crée des méthodes récursives, j'inclue souvent un paramètre Depth, en particulier lorsque j'ai besoin d'un mécanisme de renflouement. Le code sera généralement quelque chose comme ça

procedure Recurse(<Params>; aDepth : integer = 0); 
begin 
    if aDepth > SomeLimit then 
    begin 
    //Tidy up, return best result found> 
    exit; 
    end; 

    <stuff> 

    if <Condition> then 
    Recurse(<Params>; aDepth+1) 
    else 
    begin 
    //Tidy up, return result of endnode> 
    end; 
end; 

Et je l'appelle sans paramètre de profondeur

Recurse(<Params>); 

Y at-il une autre façon de trouver facilement la profondeur?

Answer 1

Si vous aviez un moyen de parcourir la pile et de voir combien de fois le point d'entrée de votre fonction était là, je suppose que vous pourriez le faire de cette façon. Mais alors vous remarquerez que votre paramètre aDepth était là aussi, et vous vous rendrez compte qu'une profondeur est juste plus facile et beaucoup moins de problèmes que l'espionnage de la pile. IMO, la solution simple est la meilleure ici, elle est portable et à l'épreuve du futur, contrairement à n'importe quelle solution d'espionnage de pile que vous pourriez inventer.
Alors oui, il y a d'autres façons, mais votre solution originale est la meilleure, IMO.

Answer 2

Avoir une variable globale qui compterait récursion? Sinon, no - récursivité appelle simplement une méthode avec certains paramètres.

Answer 3

Déclarez une constante typée dans votre procédure. Assurez-vous de définir l'option de compilation pour autoriser les modifications dans les constantes.

procedure Recurse; 
const 
    aDepth : integer = 0; 
begin 
    aDepth := aDepth + 1; 

    try 
    if aDepth > SomeLimit then 
    begin 
     //Tidy up, return best result found> 
     exit; 
    end; 

    <stuff> 

    if <Condition> then 
     Recurse 
    else 
    begin 
     //Tidy up, return result of endnode> 
    end; 
    finally 
    aDepth := aDepth - 1; 
    end; 
end; 

Answer 4

En C++, je suis en mesure de le faire

class recursion_guard 
{ 
public: 
    recursion_guard() { depth_count++; } 
    ~recursion_guard() { depth_count--; } 
    static int depth_count; 
}; 
int recursion_guard::depth_count = 0; 
void recurse(recursion_guard a = recursion_guard()) 
{ 
    if(recursion_guard::depth_count > 100) 
     return; 
    recurse(); 
} 

mais étant donné que les objets Pascal Objet sont toujours attribués sur le tas, je me demande s'il est possible d'utiliser à la place chaîne avec l'argument par défaut et l'accès en quelque sorte la référence compte

const 
    MyRecursionGuardConstString: string = "whatever"; 
procedure Recurse(RecursionGuard: string = MyRecursionGuardConstString) 
begin 
    if GetRefCount(MyRecursionGuardConstString) > 100 then //o_o 
     exit; 
    end; 
    Recurse; 
end; 

Answer 5

type 
    TMyRecursion = class 
    private 
    nDepth: integer; 
    public 
    constructor Create; 
    procedure Recursion(...) 
    end; 

dans le constructeur, vous devez initialiser nDepth, bien sûr.