友类的一个用途！！！！

Question

友类的一个用处！友类的意思就是在同一个Unit中申明的多个不同的类之间的互称！早就知道友类的概念，但一直没有体会到Delphi中到底创建这个概念有什么“利益”，直到最近和朋友在讨论另外一个问题时候才突然体会到其好处，拿来与大家分享，顺便征集其他关于友类的作用......假设存在类TFriend，如下：TFriend=class  //为了举例，这个类并无任何意义
private
  FSomeProp:String;
protected
  property SomeProp;Read FSomeProp;Write FSomeProp;  
end;同时假设这个类申明在Unit1单元，那么当我们需要在工程中的另外一个单元Unit2中的某个类中访问类实例Friend1的保护属性的时候，我们该如何做呢？很简单，在Unit2中申明一个类TFriend的子类，如下：TPal=class(TFriend)
  //没有任何数据
end;这样TPal类和需要在其中访问属性SomeProp的类在Unit2单元中互相为友类，这样你就可以直接在Unit2单元中的这个类中访问你需要访问的保护属性了！！！！不知道各位还有没有关于友类的其他的用途....，期待中....

Answer 1

自己顶！！！！难道你们对这些东西都没有兴趣？？？？