類:
乙個是 tform 類; 乙個是 tform1 類; tform1 繼承於 tform.
tform 是 tform1 的父類; tform1 是 tform 的子類.
unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 =
class(tform)
button1: tbutton;
button2: tbutton;
procedure button1click(sender: tobject);
procedure button2click(sender: tobject);
end;
//下面自定義了兩個類, tchild 繼承於 tbass
tbass =
class
procedure msg1;
end;
tchild =
class(tbass)
procedure msg2;
end;
varform1: tform1;
implementation
procedure tbass
.msg1;
begin
showmessage(
'is bass');
end;
procedure tchild
.msg2;
begin
showmessage(
'is child');
end;
//測試1: 父類只有乙個方法 msg1
procedure tform1
.button1click(sender: tobject);
varb: tbass;
begin
b := tbass
.create;
b.msg1;
b.free;
end;
//測試2: 子類有兩個方法, 自己乙個 msg2, 還繼承了乙個 msg1
procedure tform1
.button2click(sender: tobject);
varc: tchild;
begin
c := tchild
.create;
c.msg1;
c.msg2;
c.free;
end;
end.
理解 Delphi 的類 六 認識類的封裝
這個類中的兩個字段沒有封裝 tmyclass1 class fname string fage integer end 這個類中的兩個字段封裝了,外部不能讀寫 tmyclass2 class private fname string fage integer public end 那怎麼讀寫?用屬性...
理解 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...