理解 Delphi 的類 六 認識類的封裝

//這個類中的兩個字段沒有封裝

tmyclass1 = class
fname: string;
fage:  integer;
end;
//這個類中的兩個字段封裝了, 外部不能讀寫
tmyclass2 = class
private
fname: string;
fage:  integer;
//public
end;
//那怎麼讀寫? 用屬性啊
tmyclass3 = class
private
fname: string;
fage: integer;
procedure setage(const value: integer);
procedure setname(const value: string);
published
property name: string  read fname write setname;
property age:  integer read fage  write setage;
end;
//這個封裝好了, 在 private 前加了 strict ; 現在除了自己誰也訪問不了私有區.
tmyclass4 = class
strict private
fname: string;
fage: integer;
procedure setage(const value: integer);
procedure setname(const value: string);
published
property name: string  read fname write setname;
property age:  integer read fage  write setage;
end;

理解 Delphi 的類 五 認識類的繼承

類 乙個是 tform 類 乙個是 tform1 類 tform1 繼承於 tform.tform 是 tform1 的父類 tform1 是 tform 的子類.unit unit1 inte ce uses windows,messages,sysutils,variants,classes,g...

理解 Delphi 的類 二 初識類的方法

說到 類 就會提到 屬性 方法 事件 這是類包含的內容 封裝 繼承 多型 這是類的主要用途 下面定義並呼叫了了乙個過程 myproc 乙個函式 myfun.unit unit1 inte ce uses windows,messages,sysutils,variants,classes,graph...

理解 Delphi 的類 八 關於類的定義

標準語法 tmyclass1 class tobject end 如果是繼承自 tobject 可以省略 tmyclass2 class end 可以實現多個介面 實現介面時經常用到 tinte cedobject 類,它實現了介面的預設方法 tmyclass3 class tinte cedobj...