//标准语法
  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
posted on 2008-01-14 13:05  万一  阅读(12029)  评论(6编辑  收藏  举报