如果class1需要class2，class2需要class1怎么办？求delphi5上的可做方案！

Question

如果class1需要class2，class2需要class1怎么办，如
tclass1 = class
    procedure setsomething(c: class2);
end;tclass2 = class
   procedure setsomething(c: class1);
end;
编译不过，我用delphi5(公司让用，真烦)
不要讨论我的方法定义的好不好，只要给解决方案就结帐，谢谢大家。

Answer 1

如果class1需要class2，class2需要class1怎么办，如
tclass1 = class
    procedure setsomething(c: tclass2);
end;tclass2 = class
   procedure setsomething(c: tclass1);
end;
编译不过，我用delphi5(公司让用，真烦)
不要讨论我的方法定义的好不好，只要给解决方案就结帐，谢谢大家。

Answer 2

tclass2 = class;  //*****tclass1 = class
    procedure setsomething(c: tclass2);
end;tclass2 = class
   procedure setsomething(c: tclass1);
end;

Answer 3

to  tonylk(=www.tonixsoft.com=) :
    非常感谢！！！

Answer 4

to FrameSniper(§绕瀑游龙§) 
也谢谢你来留言！