東北大學,數(shù)據(jù)庫開發(fā)技術,課件,第5章objectpascal程序設計語言-資料下載頁
2025-01-13 16:59本頁面
【正文】 Tobject TInterfacedObject Tanimal TMammal Tbat TMonkey Tbird Teagle Tpenguin Tduck IUnknown IAnimal IMammal IBird ICanFly ICanWalk ICanSwim 實例參見：繼承 /Tanimal all 五、多態(tài)與覆蓋 多態(tài)的基本思想：用戶調用一個對象方法，并將其應用于一個變量，但具體調用哪一個方法將依賴與變量相關的對象類型，由于類型的可兼容性原則， Delphi在運行前不能確定與變量相關對象的實際類。 即一個給定的對象方法可能有多種版本，一次單獨的方法調用可能是這些版本中的任何一種。 多態(tài)的定義 多態(tài)的定義在父類中以 virtual描述，派生類中以 override與之對應。 Tanimal=Class Public function Voice:string。 virtual。 End。 TDog=Class(Tanimal) Public function Voice:string。 override。 End。 覆蓋 派生類中可以覆蓋父類中的靜態(tài)的和虛擬的方法。覆蓋靜態(tài)的只需在派生類中添加該方法即可，其參數(shù)可以與父類不同。覆蓋虛擬的方法，必須指定相同的參數(shù)并使用關鍵字 override。 TMyClass=Class Public procedure One。 virtual。 procedure Two。 {Static Method} End。 TMySubClass=Class(TMyClass) Public procedure One。 override。 procedure Two。 {Static Method} End。 覆蓋（續(xù)一） 覆蓋對象方法有兩種典型方法。一種是用新版本替代老版本，另一種是添加新代碼，此時應使用關鍵字inherited。 Procedure 。 Begin //New Code … //Call inherited procedure from inherited One。 End。 抽象的方法 關鍵字 abstract只聲明在當前類的子類中定義的方法，當前類并不對此方法進行定義。其使用方式類似于 C語言中的函數(shù)聲明。 實例參見：多態(tài) /TAnimal2 多態(tài)的窗體 如果向窗體添加一個事件處理程序，然后在一個繼承窗體內(nèi)改變它。 實例參見：多態(tài) /窗體 2 六、高級編程技術 類對象方法與類數(shù)據(jù) 對象方法指針 類引用 Published標示符 類中屬性 事件 創(chuàng)建自己的組件 類對象方法與類數(shù)據(jù) 類方法只與類有關，與類的對象或對象實例無關。 類數(shù)據(jù)為類中靜態(tài)數(shù)據(jù)，定義在類所在單元的 implementation中的變量。 Type Myclass= class class function GetTotal:string。 實例參見： 例子 \高級編程 \帶有對象計數(shù)器的類 對象方法指針 對象方法的指針類型與過程類型相象，只不過對象方法指針引用的是對象方法。 Type IntPrdType = Procedure (Num:Integer)。 IntMethodPtType= procedure(Num:Integer) of object。 實例參見： 例子 \高級編程 \更新的計數(shù)器 Anotherclass=class x:integer。 procedure Add (N:integer)。 End。 MyClass=class value:integer。 Operation: IntMethodPtType。 End。 Var Myobject: Myclass。 AnotherObject: AnotherClass := 類引用 類的引用不是類，它不是對象，也不是對象的引用，它只是對類類型的引用。 Type TMyClassRef= class of Tmyclass。 實例參見： 例子 \高級編程 \運行時創(chuàng)建組件 Var AClassRef:TmyclassRef。 AnObject: Tmyclass。 Begin AClassRef:=Tmyclass。 AnObject:=。 Var AClassRef:TmyclassRef。 AnObject: Tmyclass。 Begin AClassRef:=Tmyclass。 AnObject:=。 Published標示符 Published元素或對象方法，不但能在運行時而且能在設計時使用。通常，類中缺省部分為Published元素。 在窗口類中，類聲明與 Private之間為窗體聲明中初始 Published部分。只有在此部分中的組件和對象方法，才能在 Object Inspector中顯示。 屬性 屬性定義了對象狀態(tài)和行為的特征。 屬性是讀寫對象方法的名稱或直接訪問數(shù)據(jù)的名稱。換句話說，用戶讀一個屬性值或改動它，就可能正在訪問一個元素（甚至是私有的）或調用一個對象方法。 實例參見： 例子 \高級編程 \屬性 事件 從技術上講，大多數(shù)事件是在收到相應的 Windows消息后被觸發(fā)的，盡管事件與消息不是一一對應的。 從理論上看，事件是向窗口發(fā)送消息的結果，并且該窗口可以響應該消息。 實際上，對于類或組件來說，事件就是屬性，是類或組件響應系統(tǒng)操作的接口。要處理組件的時間，可以賦予對象方法相應的事件屬性。 實例參見： 例子 \高級編程 \事件 創(chuàng)建自己的組件 自定義組件必須由 Tponent類或其子類中繼承。加入一個新的構造函數(shù)如下。并添加一個注冊函數(shù) Register。 實例參見： 例子 \高級編程 \自定義組件 Constructor Create(Aowner:Tponent)。 overload。 override。 Constructor Create(y,m,d:integer)。 reintroduce。 override。 Procedure Register。 Begin RegisterComponents(?Md4?,[Tdate])。 End。
環(huán)評公示相關推薦
鄂ICP備17016276號-1