Iherited 是一個(gè)保留字,在用在子類的(Method)的實(shí)現(xiàn)區(qū)里,當(dāng)要設(shè)定子類某個(gè)方法的
實(shí)現(xiàn)內(nèi)容,但這個(gè)方法實(shí)現(xiàn)區(qū)所包含的代碼只會(huì)比父類所定義的實(shí)現(xiàn)內(nèi)容多出一些代碼,
而原本的部分仍然要延用時(shí),就可以在類方法的實(shí)現(xiàn)區(qū)中用 Iherited 這個(gè)保留字
后面加上父類的成員函數(shù)的標(biāo)識(shí)符(Identifier) ,并且給予適當(dāng)參數(shù).
而且,Iherited并非只能在override 的方法實(shí)現(xiàn)里,而且在子類設(shè)定的任何方法里使用
而且能調(diào)用父類任何成員函數(shù).
1unitUnit1;
2
3interface
4
5uses
6Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
7Dialogs,StdCtrls;
8type
9TPerson=class(TObject)
10public
11CONSTRUCTORCreate;
12FUNCTIONSwim:String;
13{Publicdeclarations}
14end;
15type
16TET=class(TPerson)
17public
18Name:String;
19PROCEDURESwim;
20PROCEDURESwum;
21{Publicdeclarations}
22end;
23type
24TForm1=class(TForm)
25Button1:TButton;
26procedureButton1Click(Sender:TObject);
27private
28{Privatedeclarations}
29public
30{Publicdeclarations}
31end;
32
33var
34Form1:TForm1;
35
36implementation
37
38PROCEDURETET.Swum;
39BEGIN
40ShowMessage('根據(jù)之前的資料'+#13+#13+'剛才');//+inheritedSwim);
41
42end;
43
44PROCEDURETET.Swim;
45BEGIN
46ShowMessage(Self.ClassName+'的Create'+#13+#13);//+inheritedSwim);
47
48end;
49
50FUNCTIONTPerson.Swim:STRING;
51BEGIN
52result:='你游'+InputBox(Self.ClassName+'游泳池問卷','你游什么方式','蛙游')+'啊!';
53ShowMessage('問卷填好了!');
54end;
55
56CONSTRUCTORTPerson.Create;
57BEGIN
58INHERITED;
59ShowMessage('執(zhí)行'+Self.ClassName+'的Create'+#13+#13+'歡迎光臨Fish游泳池');
60end;
61
62{$R*.dfm}
63
64procedureTForm1.Button1Click(Sender:TObject);
65VAR
66aPerson:TPerson;
67theEt:Tet;
68begin
69aPerson:=TPerson.Create;
70aPerson.Swim;
71aPerson.Free;
72theEt:=TET.Create;
73theEt.Name:='外星人ＥＴ';
74theEt.Swim;
75theEt.Swum;
76theEt.Free;
77end;
78
79end.
80
81

總結(jié)

以上是生活随笔為你收集整理的inherited使用举例的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。