物件繼承後可以使用父代私有函數？ |
|
答題得分者是：Coffee
|
|
chenyk
高階會員   發表：14 回覆：95 積分：171 註冊：2002-07-08 發送簡訊給我 |
最近在練習物件繼承，以下是我測試的程式碼，我使用D7可以正常執行，TBclass 繼承於 TAclass，
TBclass 居然可以使用 TAclass 的私有函數，這跟書上描述的似乎不太一樣 如果把兩個物件分成兩個 Unit File各自儲存，則D7會發出Undeclared identifier: 'Test' 的錯誤訊息。 難道多個物件放在同個檔案，互相繼承後函數就不受物件規則限制嗎？還是說我的觀念上有錯誤？ unit Unit2; interface uses Dialogs; type TAclass = class private procedure Test(const sMsg: string); public end; TBclass = class(TAclass) private public procedure ShowMsg(const sMsg: string); end; implementation procedure TAclass.Test(const sMsg: string); begin ShowMessage(sMsg); end; procedure TBclass.ShowMsg(const sMsg: string); begin Test(sMsg); end; |
|
Coffee
版主 發表：31 回覆：878 積分：561 註冊：2006-11-15 發送簡訊給我 |
我的印象中沒記錯的話，不用繼承也可以，在同一個unit裡面的class可以呼叫到其它class的privarte method。
這個意義就跟C 的friend修飾字是類似的，但坦白說我沒有這樣使用過。 ===================引 用 chenyk 文 章=================== 最近在練習物件繼承，以下是我測試的程式碼，我使用D7可以正常執行，TBclass 繼承於 TAclass， TBclass 居然可以使用 TAclass 的私有函數，這跟書上描述的似乎不太一樣 如果把兩個物件分成兩個 Unit File各自儲存，則D7會發出Undeclared identifier: 'Test' 的錯誤訊息。 難道多個物件放在同個檔案，互相繼承後函數就不受物件規則限制嗎？還是說我的觀念上有錯誤？ unit Unit2; interface uses Dialogs; type TAclass = class private procedure Test(const sMsg: string); public end; TBclass = class(TAclass) private public procedure ShowMsg(const sMsg: string); end; implementation procedure TAclass.Test(const sMsg: string); begin ShowMessage(sMsg); end; procedure TBclass.ShowMsg(const sMsg: string); begin Test(sMsg); end;
------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。 為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。 在引述到我的文時自然會儘量替各位想辦法，謝謝大家！ |
|
chenyk
高階會員 發表：14 回覆：95 積分：171 註冊：2002-07-08 發送簡訊給我 |
|
|
aftcast
站務副站長  發表：81 回覆：1485 積分：1763 註冊：2002-11-21 發送簡訊給我 |
幫忙補充一下: A private method is (unit) private. What you need is a protected method. Protected methods can be accessed by any class that inherits from the base class even if they are in different units. User code can't access them (unless he inherits from the class). 此如同發問者一樣，同一個unit是可以存取private的。因為早期的delphi的pravate是指 unit 的範籌而非一般物件導向(如java，c )一般。 而重點來了… 自從delphi2005版後… there's also aThe private keyword actually creates a " friendship" relationship between classes in the same unit. The strict private declaration creates a true private field, not viewable by any other class, not even classes in the same unit. |
發表時間：2010-10-26 09:43:01
IP:125.230.xxx.xxx 訂閱
我是今天查了才發現…原來delphi7(含)以前是這樣在處理private的。
和大家分享一下。