//標准語法
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