【正文】 ? program Project1。 ? {$APPTYPE CONSOLE} ? uses ? SysUtils。 ? var ? i,j:integer。 ? begin ? j:=1。 ? for i:=1 to 100000 do ? begin ? j:=j+1。 ? if i=5 then ? 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 68 ? break。 ? end。 ? writeln(39。j的值是 :39。,j)。 ? writeln(39。按下回車鍵 Enter退出。 39。)。 ? readln。 ? end. 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 69 continue過程 ? 如果想跳過循環(huán)中部分代碼重新開始下一次循環(huán)，就調(diào)用 Continue過程。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 70 ? 【 例 】 下面的代碼在執(zhí)行第一次循環(huán)時(shí) continue后的代碼不執(zhí)行。 ? program Project1。 ? {$APPTYPE CONSOLE} ? uses ? SysUtils。 ? var i:integer。 ? begin ? for i:=1 to 3 do ? begin ? writeln(i,39。.before continue39。)。 ? if i=1 then ? continue。 ? 實(shí)例講解 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 71 ? writeln(i,39。.after continue39。)。 ? end。 ? writeln(39。按下回車鍵 Enter退出。 39。)。 ? readln 。 ? end. 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 72 過程與函數(shù) ? 過程與函數(shù)是實(shí)現(xiàn)一定功能的語句塊，可以在程序的其他地方被調(diào)用，也可以進(jìn)行遞歸調(diào)用。 ? 過程與函數(shù)的區(qū)別在于：過程沒有返回值，而函數(shù)有返回值。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 73 過程 ? 所有過程（ procedure）在使用前都必須先聲明。過程根據(jù)有無參數(shù)可以分為帶參過程和不帶參過程。過程的結(jié)構(gòu)與程序類似，由過程首部和過程體組成。過程說明的語法如下： ? 1. 帶參過程 ? procedure 過程名（參數(shù)列表）； ? 變量聲明； ? begin ? 過程體； ? end； 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 74 ? 2. 不帶參過程 ? procedure 過程名； ? 變量聲明； ? begin ? 過程體； ? end； ? 過程是以保留字 procedure開頭的，接下來就是過程名稱和過程體部分，過程體部分是位于 begin和 end之間的語句。 ? 定義了有參過程后，在程序中就可以調(diào)用它了。調(diào)用的格式為： ? 過程名（實(shí)際參數(shù)）； 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 75 實(shí)例講解 ? 【 例 】 定義一個(gè)求兩個(gè)整數(shù)變量之和，并把和輸出的過程。 ? program Project1。 ? {$APPTYPE CONSOLE} ? uses SysUtils。 ? procedure sum（ a,b:integer） 。 ? begin ? writeln（ format（‘ %d+%d=%d’,[a,b,a+b]）） 。 ? end。 ? var ? x,y:integer。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 76 ? begin ? x:=2。 ? y:=3。 ? sum（ x,y） 。 ? writeln（’按下回車鍵 Enter退出?！?。 ? readln。 ? end. 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 77 函數(shù) ? 函數(shù)（ function）和過程相似，也是一個(gè)能夠完成某各特定功能的程序塊。函數(shù)也是由函數(shù)首部和函數(shù)體組成。函數(shù)聲明的語法如下： ? function 函數(shù)名 (形參表 )：類型； ? 變量聲明； ? begin ? 函數(shù)體； ? end； ? 函數(shù)中的形參表也可以沒有，即定義無參函數(shù)，但在大多數(shù)情況下，函數(shù)都是有參數(shù)的。函數(shù)的變量聲明用于定義函數(shù)中的局部變量，即在此處聲明的變量只在這個(gè)函數(shù)中有效，不能在程序中使用。變量的作用范圍稱為它的作用域。在主程序中說明的變量稱為全局變量，全局變量的作用域是主程序和所有子程序。首部中的形式參數(shù)也是局部的。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 78 實(shí)例講解 ? 【 例 】 定義一個(gè)比較兩個(gè)整數(shù)變量中較大者的函數(shù)。 ? program Project1。 ? {$APPTYPE CONSOLE} ? uses Sysutils。//定義一個(gè)比較兩個(gè)整數(shù)變量中較大者的函數(shù)。 ? function max（ a,b:integer） :integer。 ? begin ? if ab then ? result:=a ? else ? result:=b。 ? end。 ? var ? x,y:integer。 ? begin ? x:=3。 ? y:=4。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 79 ? write（ format（’ %d和 %d的最大數(shù)是’ ,[x,y]）） 。 ? writeln（ inttostr（ max（ x,y））） 。 ? writeln（’按下回車鍵 Enter退出?！?。 ? readln。 ? end. ? 函數(shù)被聲明后，在調(diào)用該函數(shù)時(shí)，函數(shù)體中的語句才會(huì)被執(zhí)行，要注意函數(shù)調(diào)用只能出現(xiàn)在表達(dá)式中 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 80 消息框過程和函數(shù) ? 在 Delphi 7的程序編寫中，經(jīng)常會(huì)用到一些過程和函數(shù)。其中 Delphi消息框過程和函數(shù)是程序編寫中使用率比較高的。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 81 ShowMessage過程 ? ShowMessage過程用于顯示一個(gè)最簡單的信息對話框，它以應(yīng)用程序的標(biāo)題為標(biāo)題，且只有一個(gè) 【 OK】 按鈕。該過程聲明如下： ? procedure ShowMessage(const Msg: string)。 ? 其中參數(shù) Msg為對話框顯示的信息。 ? 例如： ShowMessage(’您好！’ )，運(yùn)行后將顯示如圖所示 210的對話框。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 82 MessageDlg函數(shù) ? MessageDlg函數(shù)用于定制一個(gè)消息框，用戶可確定顯示的符號及多個(gè)位圖按鈕。調(diào)用函數(shù)，系統(tǒng)顯示消息并等待用戶的回應(yīng)。該函數(shù)聲明如下： ? function MessageDlg(const Msg: string。 DlgType: TMsgDlgType。 Buttons: TMsgDlgButtons。 HelpCtx: Longint): Word。 ? 其中參數(shù) Msg為對話框顯示的信息；參數(shù) DlgType指定信息對話框的類型，該參數(shù)是一個(gè)枚舉型，其取值與說明如表 213所示；參數(shù) Buttons用于指定出現(xiàn)的按鈕組，是一個(gè)集合型，其取值與說明如表 214所示；參數(shù) HelpCtx用于指定用戶按 Help按鈕或按下 F1鍵時(shí)，顯示的幫助主題。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 83 表 213 參數(shù) DlgType的取值說明 取值 說明 mtWarning 在對話框中出現(xiàn)黃色的感嘆號。 mtErro 在對話框中出現(xiàn)紅色的錯(cuò)誤號。 mtInformaiton 在對話框中出現(xiàn)藍(lán)色的信息號。 mtConfirmation 在對話框中出現(xiàn)綠色的問號。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 84 表 214參數(shù) Buttons的取值說明 取值 說明 mbOK 在對話框中出現(xiàn) Yes按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrOK或 1。 mbCancel 在對話框中出現(xiàn) Yes按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrCancel或 2。 mbAbout 在對話框中出現(xiàn) mbAbout按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrAbout或 3。 mbRetry 在對話框中出現(xiàn) mbRetry按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrRetry或 4。 mbIgnore 在對話框中出現(xiàn) mbIgnore按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrIgnore或 5。 mbYes 在對話框中出現(xiàn) Yes按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrYes或 6。 mbNo 在對話框中出現(xiàn) Yes按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrNo或 7。 mbAll 在對話框中出現(xiàn) mbAll按鈕，單擊該按鈕時(shí)函數(shù)返回值為 mrAll或 8。 mbNoToAll 在對話框中出現(xiàn) mbNoToAll按鈕，單擊該按鈕時(shí)函數(shù)返回值為 9。 mbYesToAll 在對話框中出現(xiàn) YesToAll按鈕，單擊該按鈕時(shí)函數(shù)返回值為 10。 mbHelp 在對話框中出現(xiàn) Help按鈕。 南昌理工學(xué)院計(jì)算機(jī)系 Delphi 程序設(shè)計(jì)基礎(chǔ) 202291 85 ? 例如： MessageDlg(’要退出該系統(tǒng)嗎？’ ,mtConfirmation,[mbOk,mbCancel],0)。 運(yùn)行后將顯示如圖所示 211的對話框。