菜鸟求助引用类型

Question

type
   
   TMyClass= class;     TMyproc= procedure(Sender: TMyClass) of object; 
TMyClass = class(TComponent)           //  定义类 TMyClass 
  private
       .......
       FMyproc: TMyproc;     //
  protected
       .......
       .......
       procedure DoSum(aSum: TMyClass );  // 在过程中引用类名TMyClass   public
    constructor Create(AOwner: TComponent); override;   //
    destructor Destroy; override;  end;这里类中的过程引用了类本身：
      FMyproc: TMyproc;     //
           procedure DoSum(aSum: TMyClass );  // 在过程中引用类名TMyClass 
本人不理解，感觉跟递归一样，请路过的朋友帮解释，最好有小例子

Answer 1

面向对象。 TMyClass 这是一个类。
TMyproc= procedure(Sender: TMyClass) of object; 这里定意的是一个过程类型，这个过程类型要用 TMyClass这个类型做参数。而实际运行时。参数传进来的是实体。 和 递归 没关系。相单于 procedure DoSum(aSum: TMyClass );  过程在处理数据时，会用到aSum实体里的数据。