//標準語法
tmyclass1 =
class(tobject)
end;
//如果是繼承自 tobject 可以省略
tmyclass2 =
class
end;
//可以實現多個介面; 實現介面時經常用到 tinte***cedobject 類, 它實現了介面的預設方法
tmyclass3 =
class(tinte***cedobject, inte***ce1, inte***ce2)
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
理解 Delphi 的類 二 初識類的方法
說到 類 就會提到 屬性 方法 事件 這是類包含的內容 封裝 繼承 多型 這是類的主要用途 下面定義並呼叫了了乙個過程 myproc 乙個函式 myfun.unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graph...
理解 Delphi 的類 五 認識類的繼承
類 乙個是 tform 類 乙個是 tform1 類 tform1 繼承於 tform.tform 是 tform1 的父類 tform1 是 tform 的子類.unit unit1 inte ce uses windows,messages,sysutils,variants,classes,g...
理解 Delphi 的類 六 認識類的封裝
這個類中的兩個字段沒有封裝 tmyclass1 class fname string fage integer end 這個類中的兩個字段封裝了,外部不能讀寫 tmyclass2 class private fname string fage integer public end 那怎麼讀寫?用屬性...