理解 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