【正文】 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 85 ? 例如： MessageDlg(’要退出該系統(tǒng)嗎？’ ,mtConfirmation,[mbOk,mbCancel],0)。 mbAll 在對(duì)話框中出現(xiàn) mbAll按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrAll或 8。 mbRetry 在對(duì)話框中出現(xiàn) mbRetry按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrRetry或 4。 mtConfirmation 在對(duì)話框中出現(xiàn)綠色的問號(hào)。 ? 其中參數(shù) Msg為對(duì)話框顯示的信息；參數(shù) DlgType指定信息對(duì)話框的類型，該參數(shù)是一個(gè)枚舉型，其取值與說(shuō)明如表 213所示；參數(shù) Buttons用于指定出現(xiàn)的按鈕組，是一個(gè)集合型，其取值與說(shuō)明如表 214所示；參數(shù) HelpCtx用于指定用戶按 Help按鈕或按下 F1鍵時(shí)，顯示的幫助主題。該函數(shù)聲明如下： ? function MessageDlg(const Msg: string。 ? 其中參數(shù) Msg為對(duì)話框顯示的信息。 ? end. ? 函數(shù)被聲明后，在調(diào)用該函數(shù)時(shí)，函數(shù)體中的語(yǔ)句才會(huì)被執(zhí)行，要注意函數(shù)調(diào)用只能出現(xiàn)在表達(dá)式中 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 80 消息框過(guò)程和函數(shù) ? 在 Delphi 7的程序編寫中，經(jīng)常會(huì)用到一些過(guò)程和函數(shù)。 ? writeln（ inttostr（ max（ x,y））） 。 ? var ? x,y:integer。//定義一個(gè)比較兩個(gè)整數(shù)變量中較大者的函數(shù)。首部中的形式參數(shù)也是局部的。函數(shù)聲明的語(yǔ)法如下： ? function 函數(shù)名 (形參表 )：類型； ? 變量聲明； ? begin ? 函數(shù)體； ? end； ? 函數(shù)中的形參表也可以沒有，即定義無(wú)參函數(shù)，但在大多數(shù)情況下，函數(shù)都是有參數(shù)的。’） 。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 76 ? begin ? x:=2。 ? procedure sum（ a,b:integer） 。 ? 定義了有參過(guò)程后，在程序中就可以調(diào)用它了。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 73 過(guò)程 ? 所有過(guò)程（ procedure）在使用前都必須先聲明。)。 ? end。 ? if i=1 then ? continue。 ? var i:integer。 ? end. 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 69 continue過(guò)程 ? 如果想跳過(guò)循環(huán)中部分代碼重新開始下一次循環(huán)，就調(diào)用 Continue過(guò)程。按下回車鍵 Enter退出。 ? writeln(39。 ? begin ? j:=1。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 67 實(shí)例講解 ? 【 例 】 下面的代碼演示了在 5次循環(huán)后跳出循環(huán)。 ? writeln（ sum） 。當(dāng)控制變量的值小于終值時(shí)，退出 for循環(huán)，執(zhí)行 for語(yǔ)句之后的語(yǔ)句。首先將初值賦給控制變量，接著判斷控制變量的值是否小于或等于終值，若是，則執(zhí)行循環(huán)體，在執(zhí)行了循環(huán)體之后，自動(dòng)將控制變量的值該為它的后繼值，并重新判斷是否小于或等于終值。 ? until i:=10。 ? repeat循環(huán)與 while循環(huán)相似，區(qū)別在于 while循環(huán)結(jié)構(gòu)的布爾表達(dá)式在循環(huán)開頭進(jìn)行判斷，循環(huán)次數(shù)最少為 0次，而 repeat循環(huán)是先執(zhí)行后判斷，重復(fù)執(zhí)行 repeat與until之間的語(yǔ)句，直到布爾表達(dá)式為 True時(shí)，循環(huán)終止。 ? while i10 do ? begin ? i:=i+1。 While的條件是在循環(huán)體執(zhí)行前進(jìn)行判斷的。循環(huán)語(yǔ)句有三種： while語(yǔ)句、repeat語(yǔ)句、 for語(yǔ)句。 ? 其中表達(dá)式的值必須是有序類型，不能是實(shí)型值或字符串。如果想在多個(gè)語(yǔ)句中選擇后繼流向，就要使用 case流向。 ? 例如： ? if a1 then b:=a+1 ? else if a=1 then b:=a ? else if a1 then b:=a1。例如： ? if ab then ? max:=a ? else ? max:=b。運(yùn)行時(shí)根據(jù)布爾表達(dá)式求值結(jié)果，選取其中之一的操作序列執(zhí)行。如果要對(duì)其他變量的該字段進(jìn)行操作，要在 with語(yǔ)句中指明變量名。 ? end。復(fù)合語(yǔ)句可以嵌套使用，也允許空的復(fù)合語(yǔ)句出現(xiàn)，也就是在begin和 end之間沒有其他語(yǔ)句。不能用 goto語(yǔ)句轉(zhuǎn)入一個(gè)過(guò)程或函數(shù)內(nèi)。當(dāng)程序執(zhí)行到 goto c。 goto語(yǔ)句的格式為： goto 標(biāo)號(hào)； ? 例如： ? … ? a:=b+10。對(duì)于任何一個(gè)變量必須首先賦值，然后才能引用，否則，未賦初值的變量將以一個(gè)隨機(jī)值參與運(yùn)算。 ? 3） 在基本數(shù)據(jù)類型的基礎(chǔ)上，還可以利用保留字 type自定義一些數(shù)據(jù)類型，例如： ? type ? MyType=array [1..100] of real。 ? 1） 標(biāo)號(hào)的聲明格式如下： ? label 標(biāo)號(hào) 1,…, 標(biāo)號(hào) n。 ? Object Pascal表達(dá)式即可以單獨(dú)組成語(yǔ)句，也可以出現(xiàn)在循環(huán)條件、變量聲明、方法的參數(shù)調(diào)用等場(chǎng)合。運(yùn)算符中圓括號(hào)的優(yōu)先級(jí)最高，運(yùn)算次序是“先內(nèi)層后外層”，因此先計(jì)算由圓括號(hào)括起來(lái)的子表達(dá)式，圓括號(hào)還可以多級(jí)嵌套。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 46 表達(dá)式 ? 表達(dá)式是算法語(yǔ)言的基本組成部分，它表示一種求值規(guī)則，通常由操作數(shù)、運(yùn)算符和圓括號(hào)。比如 (x+y)*z,它把 x 和 y 的和乘以 z。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 45 ? 8．運(yùn)算符的優(yōu)先級(jí) ? 具有較高優(yōu)先級(jí)的運(yùn)算符先進(jìn)行運(yùn)算，具有相同優(yōu)先級(jí)的運(yùn)算符從左邊開始。 ? k:=8。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 44 ? 6．地址運(yùn)算符 ? 地址運(yùn)算符為 ，其作用是用來(lái)獲取變量、函數(shù)或?qū)ο蠓椒ǖ牡刂贰Ｈ绻麅蓚€(gè)字符串都是短字符串，那么在結(jié)果字符串長(zhǎng)度超過(guò) 255個(gè)字符的情況下，只有前面 255個(gè)字符有效。比如，只有i 和 j 有相同的值， i = j 才是真，否則 ij為真。 ? 2．邏輯運(yùn)算符 ? 邏輯運(yùn)算符對(duì)邏輯類型的操作數(shù)進(jìn)行運(yùn)算，數(shù)據(jù)結(jié)果也為邏輯類型，如表 28所示。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 39 ? x div y 的值取整數(shù)，也就是取得 x/y 的值，然后以 0 的方向取得最近的整數(shù)。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 38 ? 1．算術(shù)運(yùn)算符 ? 算術(shù)運(yùn)算符與普通數(shù)學(xué)中的運(yùn)算符意義相同。單目運(yùn)算符一般放在操作對(duì)象的前面，只有指針運(yùn)算符（ ^）可以放在操作對(duì)象的后面。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 36 運(yùn)算符和表達(dá)式 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 37 運(yùn)算符 ? 運(yùn)算符是在代碼中對(duì)各種數(shù)據(jù)類型進(jìn)行運(yùn)算的符號(hào)。 ? 相當(dāng)于聲明和語(yǔ)句 ? var ? i:integer。 ? m,n:real。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 34 ? 其中，保留字 var表示開始一個(gè)變量說(shuō)明部分。 ? 1．變量聲明格式 ? 一個(gè)變量由標(biāo)識(shí)符、類型和可選的初始化共同定義的。例如：const a=12 隱含說(shuō)明 a是整型； const r= r是實(shí)型 …… ? 常量定義部分必須以保留字 const開頭，可以包含一個(gè)或幾個(gè)常量定義，而且每個(gè)常量均以分號(hào)結(jié)束。常量定義出現(xiàn)在說(shuō)明部分。 ? writeln(’按下回車鍵 Enter退出。 ? end。 ? with Record1 do // 使用 with語(yǔ)句可以簡(jiǎn)化代碼的輸入 ? begin ? Year:= 1973。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 29 ? var ? Record1, Record2: TDateRec。 ? {$APPTYPE CONSOLE} ? type ? TDateRec = record // 記錄類型的定義 ? Year:integer。 ? … ? 域 n: 數(shù)據(jù)類型 。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 27 記錄類型 ? 記錄類型（ record）可以由不同類型的元素組成，這些元素稱為域。 ? // 兩維數(shù)組 ? type TMatrix = array [1..10, 1..50] of Real。 ? TACopyOfChar = set of Char。定義方法如下： ? set of 基類型 ? 例如： ? type ? TSomeInts = 1.. ? 接著就可以定義一個(gè)子界類型如下： ? type ? TMyColors = Green..White。不要把作為枚舉元素的標(biāo)識(shí)符視作變量名，它不能被賦值。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 21 枚舉類 型 ? 枚舉類型（ enumerated）是由一組有序的標(biāo)識(shí)符組成的，形式如下： ? type ? typeName = （標(biāo)識(shí)符 1， …… ，標(biāo)識(shí)符 n） 。 ? 字符型是 ASCII字符的集合，包括 2種類型：標(biāo)準(zhǔn)字符和寬字符。 false 和 True都是預(yù)定義常數(shù)標(biāo)識(shí)符 ，分別表示邏輯假和邏輯真 。 ? end. 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 18 實(shí)型 ? 實(shí)型數(shù)據(jù)（ real）用類存放實(shí)數(shù)。 ? writeln（’