face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">部分，你能使用</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">聲明定義開發者的接口。也就是說。對象的用戶不能訪向</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">部分，但開發者通過繼承就可能做到，這意味著你能通過</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">部分的可訪問性使部件編寫者改變對象工作方式，而又不使用戶見到這些細節。</p>
<p>　　⑶</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">定義運行時接口</p>
<p>　　將對象的某一部分定義為</font><font face="Arial" size="3">public</font><font
face="宋體" lang="ZH-CN" size="3">可使任何代碼訪問該部分。如果你沒有對域方法或屬性加以</font><font
face="Arial" size="3">private</font><font face="宋體" lang="ZH-CN" size="3">、</font><font
face="Arial" size="3">protected</font><font face="宋體" lang="ZH-CN" size="3">、</font><font
face="Arial" size="3">public</font><font face="宋體" lang="ZH-CN" size="3">的訪問控制描述。那么該部分就是</font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">。</p>
<p>　　因為對象的</font><font face="Arial" size="3">public</font><font
face="宋體" lang="ZH-CN" size="3">部分可在運行時為任何代碼訪問，因此對象的</font><font
face="Arial" size="3">public</font><font face="宋體" lang="ZH-CN" size="3">部分被稱為運行接口。運行時接口對那些在設計時沒有意義的項目，如依靠運行時信息的和只讀的屬性，是很有用的。那些設計用來供用戶調用的方法也應放在運行時接口中。</p>
<p>　　下例是一個顯示兩個定義在運行時接口的只讀屬性的例子：</p>
<p>　</font><font face="Arial" size="3"></p>
<p>type </p>
<p>TSampleComponent = class(TComponent)</p>
<p>private</p>
<p>FTempCelsius: Integer; { </font><font face="宋體" lang="ZH-CN" size="3">具體實現是</font><font
face="Arial" size="3">private } </p>
<p>function GetTempFahrenheit: Integer; </p>
<p>public</p>
<p>property TempCelsius: Integer read FTempCelsius; { </font><font face="宋體"
lang="ZH-CN" size="3">屬性是</font><font face="Arial" size="3">public }</p>
<p>property TempFahrenheit: Integer read GetTempFahrenheit; </p>
<p>end; </p>
<p>　</p>
<p>function GetTempFahrenheit: Integer; </p>
<p>begin </p>
<p>Result := FTempCelsius * 9 div 5 + 32; </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　既然用戶在設計時不能改變</font><font face="Arial" size="3">public</font><font
face="宋體" lang="ZH-CN" size="3">部分的屬性的值，那么該類屬性就不能出現在</font><font
face="Arial" size="3">Object Inspector</font><font face="宋體" lang="ZH-CN" size="3">窗口中。</p>
<p>　　⑷</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">定義設計時接口</p>
<p>　　將對象的某部分聲明為</font><font face="Arial" size="3">published</font><font
face="宋體" lang="ZH-CN" size="3">，該部分也即為</font><font face="Arial"
size="3">public</font><font face="宋體" lang="ZH-CN" size="3">且產生運行時類型信息。但只有</font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">部分定義的屬性可顯示在</font><font
face="Arial" size="3">Object Inspector</font><font face="宋體" lang="ZH-CN" size="3">窗口中。對象的</font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">部分定義了對象的設計時接口。設計時接口包含了用戶想在設計時定制的一切特征。</p>
<p>　　下面是一個</font><font face="Arial" size="3">published</font><font
face="宋體" lang="ZH-CN" size="3">屬性的例子，因為它是</font><font
face="Arial" size="3">published</font><font face="宋體" lang="ZH-CN" size="3">，因此可以出現在</font><font
face="Arial" size="3">Object Inspector</font><font face="宋體" lang="ZH-CN" size="3">窗口：</p>
<p>　</font><font face="Arial" size="3"></p>
<p>TSampleComponent = class(TComponent) </p>
<p>private </p>
<p>FTemperature: Integer; { </font><font face="宋體" lang="ZH-CN" size="3">具體實現是</font><font
face="Arial" size="3"> private }</p>
<p>published</p>
<p>property Temperature: Integer read FTemperature write FTemperature; { </font><font
face="宋體" lang="ZH-CN" size="3">可寫的</font><font face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　</font><font face="Arial" size="3">3. </font><font face="宋體" lang="ZH-CN"
size="3">派送方法</p>
<p>　　派送</font><font face="Arial" size="3">(Dispatch)</font><font face="宋體"
lang="ZH-CN" size="3">這個概念是用來描述當調用方法時，你的應用程序怎樣決定執行什么樣的代碼，當你編寫調用對象的代碼時，看上去與任何其它過程或函數調用沒什么不同，但對象有三種不同的派送方法的方式。</p>
<p>　　這三種派送方法的類型是：</font><font face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">靜態的</p>
<p>　</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">虛擬的</p>
<p>　</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">動態的</p>
<p>　</p>
<p>　　虛方法和動態方法的工作方式相同，但實現不同。兩者都與靜態方法相當不同。理解各種不同的派送方法對創建部件是很有用的。</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　⑴</font><font face="Arial"
size="3"> </font><font face="宋體" lang="ZH-CN" size="3">靜態方法：</p>
<p>　　如果沒有特殊聲明，所有的對象方法都是靜態的</font><font
face="Arial" size="3">.</font><font face="宋體" lang="ZH-CN" size="3">。靜態方法的工作方式正如一般的過程和函數調用。在編譯時，編譯器決定方法地址，并與方法聯接。</p>
<p>　　靜態方法的基本好處是派送相當快。因為由編譯器決定方法的臨時地址，并直接與方法相聯。虛方法和動態方法則相反，用間接的方法在運行時查找方法的地址，這將花較長的時間。</p>
<p>　　靜態方法的另一個不同之處是當被另一類型繼承時不做任何改變，這就是說如果你聲明了一個包含靜態方法的對象，然后從該對象繼承新的對象，則該后代對象享有與祖先對象相同的方法地址，因此，不管實際對象是誰，靜態方法都完成相同的工作。</p>
<p>　　你不能覆蓋靜態方法，在后代對象中聲明相同名稱的靜態方法都將取代祖先對象方法。</p>
<p>　　在下列代碼中，第一個部件聲明了兩靜態方法，第二個部件，聲明了相同名字的方法取代第一個部件的方法。</p>
<p>　</p>
<p></font><font face="Arial" size="3">type </p>
<p>TFirstComponent = class(TComponent) </p>
<p>procedure Move; </p>
<p>procedure Flash; </p>
<p>end;</p>
<p>　</p>
<p>TSecondComponent = class(TFirstComponent) </p>
<p>procedure Move; { </font><font face="宋體" lang="ZH-CN" size="3">盡管有相同的聲明，但與繼承的方法不同</font><font
face="Arial" size="3"> } </p>
<p>function Flash(HowOften: Integer): Integer; { </font><font face="宋體" lang="ZH-CN"
size="3">同</font><font face="Arial" size="3">Move</font><font face="宋體" lang="ZH-CN"
size="3">方法一樣</font><font face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　⑵</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">虛方法</p>
<p>　　調用虛方法與調用任何其它方法一樣，但派送機制有所不同。虛方法支持在后代對象中重定義方法，但調用方法完全相同，虛方法的地址不是在編譯時決定，而是在運行時才查找方法的地址。</p>
<p>　　為聲明一個新的方法，在方法聲明后增加</font><font face="Arial"
size="3">virtual</font><font face="宋體" lang="ZH-CN" size="3">指令。方法聲明中的</font><font
face="Arial" size="3">virtual</font><font face="宋體" lang="ZH-CN" size="3">指令在對象虛擬方法表（</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">）中創建一個入口，該虛擬方法表保存對象類所有虛有擬方法的地址。</p>
<p>　　當你從已有對象獲得新的對象，新對象得到自己的</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">，它包含所有的祖先對象的</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">入口，再增加在新對象中聲明的虛擬方法。后代對象能覆蓋任何繼承的虛擬方法。</p>
<p>　　覆蓋一個方法是擴展它，而不是取代它。后代對象可以重定義和重實現在祖先對象中聲明的任何方法。但無法覆蓋一個靜態方法。覆蓋一個方法，要在方法聲明的結尾增加</font><font
face="Arial" size="3">override</font><font face="宋體" lang="ZH-CN" size="3">指令，在下列情況，使用</font><font
face="Arial" size="3">override</font><font face="宋體" lang="ZH-CN" size="3">將產生編譯錯誤：</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">祖先對象中不存在該方法</font><font
face="Arial" size="3"></p>
<p></font><font face="宋體" lang="ZH-CN" size="3">　</font><font face="Arial" size="3">
</font><font face="宋體" lang="ZH-CN" size="3">●</font><font face="Arial" size="3"> </font><font
face="宋體" lang="ZH-CN" size="3">祖先對象中相同方法是靜態的</p>
<p>　</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">●</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">聲明與祖先對象的（如名字、參數）不匹配</p>
<p>　</p>
<p>　　下列代碼演示兩個簡單的部件。第一個部件聲明了三個方法，每一個使用不同的派送方式，第二個部件繼承第一個部件，取代了靜態方法，覆蓋了虛擬方法和動態方法。</p>
<p>　</p>
<p></font><font face="Arial" size="3">type </p>
<p>TFirstComponent = class(TCustomControl)</p>
<p>procedure Move; { </font><font face="宋體" lang="ZH-CN" size="3">靜態方法</font><font
face="Arial" size="3"> } </p>
<p>procedure Flash; virtual; { </font><font face="宋體" lang="ZH-CN" size="3">虛</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">方</font><font
face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN" size="3">法</font><font
face="Arial" size="3"> } </p>
<p>procedure Beep; dynamic; { </font><font face="宋體" lang="ZH-CN" size="3">動態虛擬方法</font><font
face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</p>
<p>TSecondComponent = class(TFirstComponent) </p>
<p>procedure Move; { </font><font face="宋體" lang="ZH-CN" size="3">聲明了新的方法</font><font
face="Arial" size="3"> } </p>
<p>procedure Flash; override; { </font><font face="宋體" lang="ZH-CN" size="3">覆蓋繼承的方法</font><font
face="Arial" size="3"> }</p>
<p>procedure Beep; override; { </font><font face="宋體" lang="ZH-CN" size="3">覆蓋繼承的方法</font><font
face="Arial" size="3"> } </p>
<p>end;</p>
<p>　</font><font face="宋體" lang="ZH-CN" size="3"></p>
<p>　　⑶</font><font face="Arial" size="3"> </font><font face="宋體" lang="ZH-CN"
size="3">動態方法</p>
<p>　　動態方法是稍微不同于虛擬方法的派送機制。因為動態方法沒有對象</font><font
face="Arial" size="3">VMT</font><font face="宋體" lang="ZH-CN" size="3">的入口，它們減少了對象消耗的內存數量。派送動態方法比派送一般的虛擬方法慢。因此，如果方法調用很頻繁，你最好將其定義為虛方法。</p>
<p>　　定義動態方法時，在方法聲明后面增加</font><font face="Arial"
size="3">dynamic</font><font face="宋體" lang="ZH-CN" size="3">指令。</p>
<p>　　與對象虛擬方法創建入口不同的