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

时间:2022-07-26 03:40:09
//标准语法 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