Delphi中的友元

结论:Delphi在同一个单元中的类互为友元类

=========================我是分割线===============================

说到友元，大家肯定就先想到C++，因为C++语言里面有一个关键字Friend它表示友元。

而现在许多语言中我们看不到Friend的身影，那是不是就没有友元呢？当然有啦。

举个例子先：

比如现在有这个两个类:

    ///车位类
  TCarPort = class
  private
    procedure Park; ///入库停靠
    procedure UnPark;///出库
  end;
  ///车库类
  TGarage = class
  public
    CarPorts: TObjectList;///车位集合
    ParkedCarPorts:TObjectList;///已经有车的车位
    function Park(CarPortNo: Integer): boolean;
    function Unpark(CarPortNo: Integer): boolean;
  end;

现在我如果把TCarPort的Park和Unpark都设为私有的，目的是防止除了TGarage其他类访问它们。

因为在TGarage中我在Park的时候要把车位同时添加到ParkedCarPorts中去，如果其他类可以通过TCarPort的Park访问，那我统计已经有车的车位数值就会不对了。

但是，我把它们都设为私有，TGarage也访问不了TCarPort的Park丫~

这时就要用友元来解决了，但是Delphi中没Friend这个关键字~

原来，只要写在同一个Unit里面的类，他们就相互是友元类了，所以只要把它们写在同一个单元里就OK~问题解决

 

当你不要友元的时候，如果是Delphi 7以下的就只能另外用一个Unit放了，如果delphi 8以上就可以用Strict Private 和Strict Protected来修饰，表示真私有。这样即使在同一个单元的其他类也不能访问它。