Delphi：class 中protected、private、public 和 published 的含义

很长一段时间内我并没有对类的继承中不同属性的性质弄得很清楚，借这次机会我想梳理一下关于类被继承后属性的可访问性的关系。首先来定义TClassA类（本文每个类都在不同的文件中）

type
  TClassA = class
  protected
    procedure proA1();
  private
    procedure proA2();
  public
    procedure proA3();
  end;
implementation

procedure TClassA.proA1();
begin
  //
end;

procedure TClassA.proA2();
begin
  //
end;

procedure TClassA.proA3();
begin
  //
end;

再定义TClassB类

type
  TClassB = class(TClassA)
    procedure proB();
  end;
var
  ClassB: TClassB;
implementation

procedure TClassB.proB();
begin
  Self.proA1;
  Self.proA3;
end;

这样可以看到，在TClassB类内部可以访问父类的protected属性和public属性，而不能访问父类的private属性。再声明TClassB类实例、或继承TClassB类时，TClassA类的protected属性不能被访问或继承。

所以可以这样理解：protected属性是半透明的，private属性时不透明的，而public属性是透明的。父类protected属性被子子类继承时相当于子类的private属性。而Delphi中类的published属性则是可以在属性列表中看到并使用的属性。

20141009 NealChi@TA