随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

  //标准语法
  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  万一  阅读(...)  评论(...编辑  收藏