理解 Delphi 的类(八) - 关于类的定义

时间:2022-10-05 03:48:59
  //标准语法
  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