В Delphi: Как найти глубину рекурсии без использования параметра?

Question

Когда я создаю рекурсивные методы, я часто включаю параметр Depth, особенно когда мне нужен какой-то механизм спасения. Код, как правило, что-то вроде этого

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; 

И я называю это без глубины параметра

Recurse(<Params>); 

Есть еще один способ легко найти глубину?

Answer 1

Если у вас был способ пройти стек и посмотреть, сколько раз там была точка входа вашей функции, я полагаю, вы могли бы сделать это именно так. Но тогда вы заметили бы, что ваш параметр aDepth тоже был там, и вы поймете, что aDepth просто легче и гораздо меньше проблем, чем отслеживать стек. IMO, простое решение лучше всего здесь, оно переносимо и перспективно, в отличие от любого решения для отслеживания стека, которое вы могли бы придумать.
Так что да, есть и другие способы, но ваше оригинальное решение лучше всего, ИМО.

Answer 2

Есть глобальная переменная, которая учитывала бы рекурсию? В противном случае no-recursion просто вызывает некоторый метод с некоторыми параметрами.

Answer 3

Объявите типизированную константу внутри вашей процедуры. Убедитесь, что параметр компиляции задан для изменения констант.

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

В C++ я могу сделать это

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(); 
} 

, но так как объекты в Object Pascal всегда выделяется в куче, мне интересно, если это возможно использовать вместо строки с аргументом по умолчанию и доступа как-то его счетчик ссылок

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; 

В конструкторе вы должны инициализировать nDepth, конечно.