在Delphi中:如何在不使用参数的情况下找到递归深度?

在我看来,简单的解决方案在这里是最好的,它是可移植的,而且是经得起未来考验的,不像你能发明的任何堆栈窥探解决方案。
是的,还有其他的方法,但是你最初的解决方案是最好的。

在过程中声明类型化常量。确保将compile选项设置为允许更改常量。

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;

有一个可以计算递归的全局变量吗?否则,no-recursion只是用一些参数调用某个方法。

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

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

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

当然,在构造函数中必须初始化nDepth。