東北大學(xué),數(shù)據(jù)庫開發(fā)技術(shù),課件,第5章objectpascal程序設(shè)計(jì)語言(編輯修改稿)
2025-02-09 16:59 本頁面
【文章內(nèi)容簡介】 執(zhí)行部分 } initialization {選擇性的 } {選擇性的初始化程序 } end. 面向?qū)ο蟪绦蛟O(shè)計(jì)理論 面向?qū)ο蟮某绦蛟O(shè)計(jì)方法基礎(chǔ) 對(duì)象和類 面向?qū)ο蟮某绦蛟O(shè)計(jì)方法基礎(chǔ) 面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（ Object Oriented Programming）簡稱為 OOP，它的基本元素是 類 （ Class）和 對(duì)象（ Object）。 使用對(duì)象模擬自然的或抽象的實(shí)體，對(duì)用戶掩蓋了實(shí)現(xiàn)的復(fù)雜性（ 封裝 ），并且能使程序員付出盡可能小的代價(jià)，獲得盡可能大收益（ 繼承 ），提高軟件的開發(fā)效率。 對(duì)象和類 類是對(duì)事物的特性及操作的抽象描述，對(duì)象是類的實(shí)體。 從 C語言的角度來看，類是 結(jié)構(gòu)的自然演化 ，類就是包含數(shù)據(jù)聲明和函數(shù)聲明的結(jié)構(gòu)。 類既包含了數(shù)據(jù)又包含了代碼，對(duì)類中成員的存取是受控制的，這一控制不僅針對(duì)數(shù)據(jù)，也針對(duì)代碼，類的這個(gè)特性被稱為 封裝 。 封裝的說明 計(jì)算過程的演變： 手工計(jì)算 全部手工和腦力完成 計(jì)算器 （ 面向過程 ） 部分借助非人力因素 ， 但仍需對(duì)過程進(jìn)行控制和管理 計(jì)算機(jī) （ 面向?qū)ο?） 完全借助非人力因素 ， 運(yùn)算一旦開始 ， 可以無需人工的介入 類的說明 The person watching TV does not need to know the TV set’s structure and how it works inside. But he needs to control the TV set. TV needs to provide an interface. Internal State 對(duì)象的例子 : TV 開請(qǐng)求 變更頻道 調(diào)節(jié)聲音 Turn On Turn Off Change Channel Adjust Volume Others... 被封裝的行為和狀態(tài) 關(guān)請(qǐng)求 類的說明 特性： 腳個(gè)數(shù) 物理位置 長度 寬度 高度 形狀 操作： 搬動(dòng) 改造 “桌子”類 定義類 （最簡單實(shí)例） 關(guān)鍵字 class引導(dǎo)類聲明 Type是類型聲明符 類體 類定義結(jié)束 Type Tdate=class Month,Day,Year:Integer Procedure SetValue(m,d,y:Integer)。 Function LeapYear: Boolean。 End。 定義類 （最簡單實(shí)例） 類函數(shù)定義前綴 Procedure (m,d,y:Integer)。 Begin Month:=m。 Day:=d。 Year:=y。 End。 Function :Boolean。 Begin if (Year mod d0) then LeapYear:=false else if (Year mod 1000) then Result:=True else if (Year mod 4000) then LeapYear:=false else Result:=True。 End。 使用類 （最簡單實(shí)例） Var Aday1,Aday2:Tdate。 Begin //Create Aday1:=。 Aday2:=。 //use (1,1,2022)。 if then Showmessage(?Leap year: ?+IntToStr())。 //destroy 。 End。 類是一個(gè)模板 ， 就象數(shù)據(jù)類型一樣 ， 使用的時(shí)候必須定義類變量 。 定義類變量稱為類的實(shí)例化 ， 類的實(shí)例化變量就是對(duì)象 。 對(duì)象是具有某一個(gè)類所描述的共性的 ， 但又有各自特性的個(gè)體 。 類的變量聲明 ， 只保存對(duì)象的引用即指針 ， 對(duì)象實(shí)際的內(nèi)存需要類中的創(chuàng)建函數(shù) Create創(chuàng)建 。 類存取控制 類的 成員 的使用者有三類： 1. 類本身 5. 一般用戶 5. 派生類 每種使用者權(quán)限不同，對(duì)應(yīng)與 不同的使用權(quán)限，有不同的關(guān) 鍵字說明。 類私有成員（ private） 類本身（或類的友元）可以存取類的私有成員。派生類不能存取其父類的私有成員。 因?yàn)轭惐仨氃诔绦蛑惺褂?，所以類必須至少有一個(gè)非私有的成員。 類成員的存取控制缺省為私有類型。 類私有成員（實(shí)例） Type Tdate=class Private Month,Day,Year:Integer Public Procedure SetValue(m,d,y:Integer)。 Function LeapYear: Boolean。 Function GetText:String。 Procedure Increase。 End。 類公有成員（ public） 在程序中使用給定類的對(duì)象，必須能存取成員數(shù)據(jù)、成員函數(shù)或兩者。 為使這些成員在程序中可以被存取，必須在類中聲明公有部分。 在公有部分定義的內(nèi)容允許被其他對(duì)象無限制地存取。通?？梢杂锌刂频厥褂霉谐蓡T存取私有數(shù)據(jù)，調(diào)用私有成員函數(shù)完成工作。 類公有成員（實(shí)例） Type Tdate=class Private Month,Day,Year:Integer Public Procedure SetValue(m,d,y:Integer)。 Function LeapYear: Boolean。 Function GetText:String。 Procedure Increase。 End。 類保護(hù)成員（ protected） 用于部分地保護(hù)對(duì)象方法和數(shù)據(jù) 。 保護(hù)元素只能被當(dāng)前類和它的子類所訪問 。 與私有成員主要的區(qū)別是：當(dāng)父類與子類不在同一代碼單元中時(shí) ， 私有成員只能為當(dāng)前類使用 ， 即派生類不能存取父類的私有成員 。 類保護(hù)成員（實(shí)例） Type A=Class private value_1:Integer。 protected value_2:Integer。 public value_3:Integer。 end。 B=Class(A) public value_4:Integ
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1