理解 Delphi 的类(八)

 

  //标准语法
  TMyClass1 = class(TObject)

  end;

---

  //如果是继承自 TObject 可以省略
  TMyClass2 = class

  end;

---

  //可以实现多个接口; 实现接口时经常用到 TInterfacedObject 类, 它实现了接口的默认方法
  TMyClass3 = class(TInterfacedObject, Interface1, Interface2)

  end;

---

  //现在 TMyClass4 相当于 TObject 的别名
  TMyClass4 = class(TObject);

---

  //用 class abstract 说明抽象类, 但内部必须有抽象方法, 才是真正的抽象类.
  TMyClass5 = class abstract(TObject)
    procedure Proc; virtual; abstract;
  end;

---

  //用 class sealed 定义不可继承的类
  TMyClass6 = class sealed(TObject)
   //...
  end;

---

  //这是定义了一个 TObject 类型的指针; TMyClass 称作 TObject 的类引用或元类
  TMyClass = class of TObject;

---

//类中数据成员的排列顺序一般是: 字段、方法、属性

---

//访问权限区域的顺序一般是:

  无限制区(默认 published)

  private

  protected

  public

  published