1、Delphi 7計算機編程及實驗地圖、張慶安趙惠根張藝亞普文波編纂、第二章面向對象的帕斯卡爾、德爾福的編程語言，即Object Pascal是在帕斯卡的基礎上發(fā)展起來的，繼承了帕斯卡爾語言語法結構嚴謹、編譯代碼效率最優(yōu)化等優(yōu)點。牙齒章節(jié)介紹了Object Pascal的數據類型、常量、變量、運算符、語句、函數和過程等。2.1數據類型、2.1.1簡單數據類型簡單類型包括順序類型和實際類型。1順序類型順序類型包括整數、字符、布爾、枚舉和子邊界。順序類型為線性數據結構，其中每個值都有唯一的前導項目(第一個除外)和唯一的后續(xù)項目(最后一個除外)牙齒。(1)整數的表示范圍和存儲格式見表2-1。表2-1整

2、數的值范圍和存儲格式、2.1數據類型、2.1數據類型和(2)字符類型字符類型的類型標識符為Char?；谧址臄祿梢允菃蝹€字符，不能是文字字符串。例如，ABC，x=？等都不是字符型數據，而是字符串。(3)布爾常用的布爾類型是布爾型，布爾型變量占用一個字節(jié)，這只有兩個茄子值：true和false。將變量I、ch和t分別定義為整數、文字和布爾值。var I : Interge:ch : Char；T: Boolean，2.1數據類型，(4)枚舉類型枚舉類型是表示一系列已排序數字的標識符，即由某些標識符組成的線性表。定義枚舉類型的語法為type typeName=(val1，valn) (5)子邊

3、界類型子邊界類型表示稱為基類的有序類型的子集之一。定義子邊界類型的語法為type typeName=Low.High，2.1數據類型，2實用型表2-2提供實用型的表示范圍和存儲格式。表2-2實際的表示范圍和存儲格式，2.1數據類型，2.1.2字符串類型字符串類型是用一對單引號括起來的一系列字符。字符串類型的表示范圍和存儲格式如表2-3所示。表2-3字符串類型的表示范圍和存儲格式、2.1數據類型、2.1.3結構類型結構數據類型是由多個數據組成的復合數據類型。結構類型包括集合類型、陣列類型、唱片類型、檔案類型等。1集合類型集合類型是相同類型的元素組。集合類型定義：type Name=set of

4、BaseType 2數組是具有相同類型元素數組的有序組合。(1)靜態(tài)數組靜態(tài)數組的宣言格式為typename=arrayindextype1，index typen of basetype。2.1數據類型，(2)動態(tài)數組動態(tài)數組沒有固定大小或長度。動態(tài)數組在分配值或使用特定函數(如SetLength)時在內存中重新分配。動態(tài)數組的宣言格式為type Name=array of BaseType。定義動態(tài)數組不需要聲明元素數。例如：type Dynamicarray=array of RealVar a1、a 23360 dynamicarry:a 1:=a2；/a1和a2指向同一內存設備。2.

5、1數據類型，3唱片類型唱片類型(在某些語言中稱為結構)是稱為字段的不同種類元素的集合。聲明時指定記錄的名稱和每個字段。宣言類型為type record typename=record field list 13360 type 1。field list 23360 type 2:field list n : type n:End；2.1數據類型、4檔案類型檔案類型是由一組相同類型的元素組成的有序集合。檔案類型的宣言格式是type fileTypeName=file of type例如，使用上面定義的TdateRec作為數據類型聲明RecordList檔案類型。Type RecordList=f

6、ile of TdateRecVar Myrecordlist:RecordList:2.1數據類型，2.1.4可變類型有時需要處理某些數據類型變更的數據，如果在編譯期間無法確定數據類型，則可以使用可變類型數據?？勺冾愋涂梢允浅?、集合、靜態(tài)數組、檔案等結構類型、指針類型和長以外的任何類型?？勺冾愋途哂刑厥庵礜ull牙齒，用于指示未知或缺失的數據。可變類型變量的宣言格式為var v1:Variant。2.2常量和變量以及2.2.1標識符是描述Object Pascal程序各部分(包括標記、對象、過程、類型、單元格、變量和程序)的名稱。標識符的大小寫入無關(即不區(qū)分大小寫入)，可以是任意長度，

7、但只有前255個字符有效。標識符的第一個字符必須是字母或下劃線。第一個字符后的字符必須是字母、數字或下劃線。標識符不允許使用空格牙齒。2.2.2常量常量是在節(jié)目執(zhí)行過程中具有未更改值的標識符，并以Const常量名稱=表達式的形式聲明。變量不能在常量聲明中使用，但可以在算術和邏輯運算符、下一個函數和常量聲明中使用。ABS low round chr odd size of hi ord succ high pred swap length ptr trunc lo、2.2常量和變量、2.2常量和變量以及2.2.3變量必須在使用表示程序中節(jié)目代碼的內存地址的標識符之前聲明。變數宣言格式如下：var

8、變量名稱表3360類型名稱；示例：var s:stringI:integerFlag:Boolean、2.3表達式和運算符以及2.3.1表達式是變量、常量、字符串、運算符和函數的組合，具體取決于特定規(guī)則。例如：peoples Republic of China gross/12 max(x，y)-min (x，y) 2.3.2運算符1分配運算符(:=)分配運算符“:”對表2-5關系運算符、2.3表達式和運算符以及4邏輯運算符邏輯運算符邏輯類型的操作數進行運算，從而得出布爾值(請參見表2-6)。表2-6邏輯運算符、2.3表達式和運算符、5設置運算符表2-7設置運算符、2.3表達式和運算符、6運算

9、符的優(yōu)先級、表2-8 Object Pascal每個運算符的優(yōu)先級、2.4語句和2.4.1注釋已添加到程序中，以說明代碼功能大括號“”注釋：“”中的內容是注釋。雙斜線“/”注釋：“/”之后的行尾的內容為注釋。括號和星號表示注釋“(* *)”:(* *)的內容是注釋。例如，the first kind of comment ./the second kind of comment。(* the third kind of comment .*)，2.4語句，2 .賦值語句、函數、過程調用語句等是簡單的語句。例如，以下語句都是簡單語句：r :=M N；/將兩個值相加并指定值。ShowMessage

10、(Im a student)。)；復合語句是多個簡單語句的組合，以begin開頭，以end結尾。例如：begin I :=1；j :=I 1；S:=abcEnd，2.4語句，2.4.3條件語句是Object Pascal語言提供的選擇結構語句。主要是1if語句if語句的表示法：if then else，2.4語句，示例2-1獲取這兩個數字中最大的值，If ab then max 3360=a/變量a后跟；無法添加Else max :=b；示例2-2符號函數。-1 (x0)，if語句的嵌套實現，例如if x0 then y :=1 else y :=0；2.4語句，2case語句case語句表示

11、：case of : else end，2.4語句，示例2-3編寫程序，輸入年份以確定是否是閏年。閏年的條件可以被(1) 4整除，但不能被100整除的年度之一。(2)可分為100和400的年份。不符合牙齒兩個條件的年份不是閏年。節(jié)目功能：輸入年度以指明是否為閏年。介面設計：Edit組件Edit1，用于輸入用于確定顯示提示和結果信息的兩個文本框Label1和Lable2的四個茄子組件的年份；查詢結果的Button組件Button1。圖2-1所示。2.4語句，圖2-1西餐介面節(jié)目代碼：procedure tform 1 . button 1 click(sender :對象)；Var year:I

12、ntegerFlag:Boolean，2.4語句，begin year :=str toint(EDI t1 . text)；/將字符串轉換為整數if year mod 4=0 then begin if year mod 100=0 then begin if year mod 400=0 then flag 3360=true else flag :=false EndEnd else flag:=falseIf flag then Label2 .Caption:=閏年else Label2。Caption:=不是閏年。End，2.4語句，2.4.4循環(huán)控制語句循環(huán)語句使您可以重復一個或

13、多個語句，直到滿足特定條件。1for語句for語句的典型格式為for循環(huán)變量：=to/downto do。示例2-4 1100計算所有整數的總和。Var s、i: Integers :=0；For i:=l to 100 do s:=s I，2.4語句，2while語句while語句的典型格式是while do while后面的邏輯表達式，它首先計算表達式的結果，如果表達式為true，則while語句重復循環(huán)主體。如果表達式結果為false，則退出循環(huán)并執(zhí)行while后面的語句。示例2-5 1100計算所有整數的總和。Var s、i: IntegerI :=1；s :=0；While i=10

14、0 do begin s:=s II :=I 1；End，2.4語句，3repeat語句repeat語句的常見格式是使用repeat until repeat語句時，首先執(zhí)行循環(huán)主體，然后再執(zhí)行循環(huán)主體，只要表達式確定，until后面的表達式為true。因此，repeat語句下的循環(huán)至少運行一次。示例2-6 1100計算所有整數的總和。Var s、i: IntegerI :=1；s :=0；repeat s :=s I；I :=I 1；Until i100；2.4語句，4break語句的功能是強制退出循環(huán)。break語句只能在循環(huán)中使用。示例2-7使用break語句結束while循環(huán)。Var

15、s:字符串；Begin while true do /條件總是true begin ReadLn(s)；/讀取字符串if s=then break/如果未輸入字符，則循環(huán)WriteLn(s退出(s)；/輸出字符串endEnd，2.4語句，5continue語句continue語句也用于循環(huán)主體。牙齒語句用于強制結束循環(huán)，轉到循環(huán)的開頭，然后開始下一個循環(huán)操作。示例2-8使用continue語句計算1100所有奇數的和。Var i、s: Integers=0；begin for I :=1 to 100 do begin if I mod 2=0 then continue；/如果為空，則跳過其

16、馀語句，轉到下一個循環(huán)s:=s I。EndEnd，2.5函數和過程、函數和進程是實現特定功能的語句塊，是程序的特定功能單元?？梢詮某绦虻钠渌胤秸{用或遞歸調用。函數和程序的區(qū)別是函數有返回值牙齒，程序沒有返回值牙齒。2.5.1函數和程序宣言函數和程序必須在使用之前聲明。1函數宣言函數聲明位于程序的類型區(qū)域(function ():)。2.5函數和過程以及函數定義位于程序的實施部分。function():也可以使用Result系統(tǒng)保留字代替Var begin :=/end。在Begin和end之間有一系列語句，用于在調用函數時實現特定功能。返回函數值的茄子方法有兩種。返回值直接分配給函數名稱。將返回值分配給Result。2.5函數和進程，示例2-9獲取兩個數字中的最大數字。Function max (a，b : integer): integ