2011計(jì)算機(jī)等級(jí)考試Delphi面向?qū)ο蟮木幊谭椒?/h1>

來(lái)源：考試吧（Exam8.com）　2010-10-25 17:20:40　【考試吧：中國(guó)教育培訓(xùn)第一門戶】　模擬考場(chǎng)

　　2.1.3 過程與函數(shù)

　　過程與函數(shù)是程序中執(zhí)行特定工作的模塊化部分。Delphi的運(yùn)行庫(kù)包含許多過程與函數(shù)以供您的應(yīng)用程序調(diào)用。您不必了解過程與函數(shù)的邏輯，但要知道過程與函數(shù)的用途。在對(duì)象中說明的過程和函數(shù)稱為方法(Method)。所有的事件處理過程都是過程，以保留字procedure開頭。每一個(gè)事件處理過程只包含了當(dāng)這一事件發(fā)生時(shí)需要執(zhí)行的程序代碼。在事件處理過程中使用Delphi已經(jīng)存在的過程與函數(shù)，只需在程序代碼中調(diào)用它們即可。

　　2.1.3.1 一個(gè)調(diào)用Delphi方法的簡(jiǎn)單例程

　　下文將通過對(duì)一個(gè)Memo部件的文本進(jìn)行剪切、拷貝、粘貼、清除等編輯的應(yīng)用程序編制，介紹使用Delphi過程和函數(shù)的調(diào)用方法。

　　Memo(備注)部件有一個(gè)CutToClipboard方法，實(shí)現(xiàn)將用戶在memo中選擇的文本移到剪貼板上去。由于這個(gè)功能已經(jīng)被建立在此方法中了，所以您只需知道這個(gè)方法做什么以及如何使用它即可。

　　下面的語(yǔ)句表明如何調(diào)用一個(gè)名為Memo1的memo部件的CutToClipboard方法：

　　Memo1.CutToClipboard;

　　通過指定Memo1的名稱，說明調(diào)用哪一個(gè)部件的CutToClipboard方法。如果不指明對(duì)象名稱，Delphi會(huì)顯示Unknown identifier錯(cuò)誤。當(dāng)該事件處理過程被觸發(fā)，程序會(huì)執(zhí)行CutToclipboard中的語(yǔ)句，將Memo1中的文本剪貼到剪貼板上去。

　　下文的例程展示了如何調(diào)用Delphi的方法，實(shí)現(xiàn)將備注部件的文本信息剪切、拷貝到剪貼板上;將剪貼板上的標(biāo)記文本粘貼到備注中，清除備注部件中的全部文本等四個(gè)功能。

　　打開一個(gè)新的空窗體，加入一個(gè)memo部件和四個(gè)按鈕，并排列整齊。改變按鈕部件的Name屬性，分別命名為Cut,Copy,Paste,Clear。您會(huì)發(fā)現(xiàn)，當(dāng)Name屬性發(fā)生改變時(shí)，Caption屬性將發(fā)生相應(yīng)的變化。在Caption屬性前加標(biāo)“&”號(hào)設(shè)立加速鍵

　　將memo部件的ScrollBars屬性設(shè)為ScVertical，以便加上滾行條。將WordWrap屬性設(shè)置為True，這樣當(dāng)用戶輸入文本到達(dá)Memo部件的右邊緣時(shí)會(huì)自動(dòng)回行。將Line屬性第一行的Memo1文本刪除，使得memo部件在初始顯示時(shí)為空的。

　　為每一個(gè)按鈕建立如下的事件處理過程：

　　procedure TForm1.CutClick(Sender: TObject);

　　begin

　　Memo1.CutToClipboard;

　　end;

　　procedure TForm1.CopyClick(Sender: TObject);

　　begin

　　Memo1.CopyToClipboard;

　　end;

　　procedure TForm1.PasteClick(Sender: TObject);

　　begin

　　Memo1.PasteFromClipboard;

　　end;

　　procedure TForm1.ClearClick(Sender: TObject);

　　begin

　　Memo1.clear;

　　end;

　　執(zhí)行此程序。您可以在備注部件中輸入文本，在進(jìn)行了文本的標(biāo)記后，可以任意地進(jìn)行剪切、拷貝、粘貼和清除。當(dāng)按鈕被按動(dòng)時(shí)，就調(diào)用相應(yīng)的過程進(jìn)行處理。用戶可以通過查閱在線幫助進(jìn)行Memo部件的Topic Search，在Memo Component項(xiàng)中查閱Method，會(huì)得到以上過程的詳細(xì)說明。

　　2.1.3.2 調(diào)用Delphi的含參過程

　　有些過程要求用戶指明參數(shù)。被調(diào)用的過程會(huì)在執(zhí)行時(shí)使用傳入的參數(shù)值，這些值在過程中被認(rèn)為是已經(jīng)被說明的變量。例如，LoadFromFile方法在TString對(duì)象中被說明為：

　　Procedure LoadFromFile(const FileName: String);

　　在調(diào)用這一過程時(shí)，應(yīng)指明FileName參數(shù)是要裝入的文件名稱。下面的程序?qū)⑾却蜷_Open對(duì)話框，當(dāng)您選擇了一個(gè)文件后，Delphi將把該文件讀入一個(gè)Memo部件：

　　begin

　　OpenDialog.Execute;

　　Memo1.lines.LoadFromFile(OpenDialog.FileName);

　　end;

　　2.1.3.3 使用Delphi函數(shù)

　　與過程一樣，函數(shù)的程序代碼也執(zhí)行特定的工作。它和過程的差別為：函數(shù)執(zhí)行時(shí)會(huì)返回一個(gè)值，而過程則沒有返回值。函數(shù)可以用來(lái)賦給一個(gè)屬性或變量;也可以使用返回值來(lái)決定程序的流程。

　　前文中我們實(shí)際上已經(jīng)接觸過了函數(shù)。在講述變量時(shí)，曾用到過下面的程序段： Edit1.Text := IntToStr(X + Y);其中，IntToStr(Value)把一個(gè)LongInt類型的數(shù)值轉(zhuǎn)化為字符串的值，Value是IntToStr唯一的參數(shù)，它可以是一個(gè)整形的值、變量、屬性或產(chǎn)生整形值的表達(dá)式。調(diào)用函數(shù)，必須把返回值賦給和此返回值類型兼容的變量或?qū)傩浴?/P>

　　有些函數(shù)返回一個(gè)True或False的布爾量，用戶的程序可以根據(jù)返回值來(lái)決定跳轉(zhuǎn)。下文的例程講述了函數(shù)返回值為Boolean的判斷用法：

　　在窗體中加入一個(gè)ColorDialog對(duì)象和一個(gè)Name屬性為ChangeColor的按鈕。為按鈕的OnClick事件建立事件處理過程如下：

　　procedure TForm1.ChangeColorClick(Sender: TObject);

　　begin

　　if ColorDialog1.Execute then

　　Form1.Color := ColorDialog1.Color

　　else

　　Form1.Color := clRed;

　　end;

　　此事件處理過程使用一個(gè)返回Boolean值的Execute方法。按動(dòng)按鈕，并在顏色對(duì)話框中選擇一個(gè)顏色。如果按動(dòng)OK按鈕，ColorDialog.Execute方法將返回True，則Form1.Color將被賦值為ColorDialog1.Color，窗體顯現(xiàn)您選用的顏色;如果按動(dòng)顏色對(duì)話框的Cancel按鈕，方法將返回False值，窗體將變?yōu)榧t色。

　　2.1.4 跳轉(zhuǎn)語(yǔ)句

　　Object Pascal的跳轉(zhuǎn)語(yǔ)句有if和case兩個(gè)。