2.1.8.4 過(guò)程和函數(shù)的語(yǔ)句部分

　　過(guò)程或函數(shù)的語(yǔ)句部分由begin開始，end結(jié)束。函數(shù)需要一個(gè)返回值�？梢詫⒎祷刂蒂x給函數(shù)名稱，也可以將返回值賦給Result變量。下面的例程將返回值賦給函數(shù)名稱：

　　function CalculateInterest(Principal,InterestRate: Double):Double;

　　begin

　　CalculateInterest := Principal * InterestRate;

　　end;

　　將返回值賦給Result變量也是可以的，則上面的程序改為：

　　Result := Principal*InterestRate;

　　下面是這個(gè)函數(shù)的調(diào)用方法：

　　InterestEarned :=CalculateInterest(2000,0.012);

　　在Implementation后面的過(guò)程和函數(shù)，可以且只能被此庫(kù)單元的事件處理過(guò)程使用。要讓過(guò)程和函數(shù)可以被其他的程序庫(kù)單元使用，則需要將過(guò)程或函數(shù)的標(biāo)題部分放在庫(kù)單元中的interface部分，而把含標(biāo)題的整個(gè)過(guò)程或函數(shù)放在庫(kù)單元的inplementation部分，并在要訪問(wèn)這個(gè)過(guò)程或函數(shù)的庫(kù)單元的uses子句中加入說(shuō)明這個(gè)過(guò)程或函數(shù)的庫(kù)單元名稱。

　　2.1.8.5 函數(shù)的遞歸調(diào)用

　　在Object Pascal中，過(guò)程或函數(shù)必須先說(shuō)明再調(diào)用。上文的NoValue函數(shù)必須在使用它的事件處理過(guò)程之前說(shuō)明和執(zhí)行，否則程序會(huì)報(bào)告一個(gè)未知標(biāo)識(shí)符的錯(cuò)誤。

　　以上規(guī)則在遞歸調(diào)用時(shí)是例外情況。所謂遞歸調(diào)用，是指函數(shù)A調(diào)用函數(shù)B，而函數(shù)B又調(diào)用函數(shù)A的情況。在遞歸調(diào)用中，函數(shù)要進(jìn)行前置，即在函數(shù)或過(guò)程的標(biāo)題部分最后加上保留字forword。下文的例程是一個(gè)遞歸調(diào)用的典型例子：

　　…

　　implementation

　　var

　　alpha:Integer;

　　procedure Test2(var A:Integer):forword;

　　{Test2被說(shuō)明為前置過(guò)程}

　　procedure Test1(var A:Integer);

　　begin

　　A :=A-1;

　　if A>0 then

　　test2(A); {經(jīng)前置說(shuō)明，調(diào)用未執(zhí)行的過(guò)程Test2}

　　writeln(A);

　　end;

　　procedure Test2(var A:Integer);{經(jīng)前置說(shuō)明的Test2的執(zhí)行部分}

　　begin

　　A :=A div 2;

　　if A>0 rhen

　　test1(A); {在Test2中調(diào)用已執(zhí)行的過(guò)程Test1}

　　end;

　　procedure TForm1.Button1Click(Sender:TObject);

　　begin

　　Alpha := 15; {給Alpha賦初值}

　　Test1(Alpha); { 第一次調(diào)用Test1,遞歸開始}

　　end;

　　按鈕的OnClick事件處理過(guò)程給Alpha賦初值，并實(shí)現(xiàn)先減1再除2的循環(huán)遞歸調(diào)用，直到Alpha小于0為止。

　　2.1.8.6 過(guò)程和函數(shù)的參數(shù)

　　當(dāng)您的程序代碼在調(diào)用一個(gè)過(guò)程或函數(shù)時(shí)，通常用參數(shù)傳遞數(shù)據(jù)到被調(diào)用的過(guò)程或函數(shù)中。最常用的參數(shù)有數(shù)值參數(shù)、變量參數(shù)和常量參數(shù)三種。

　　由被調(diào)用過(guò)程或函數(shù)定義的參數(shù)為形參，而由調(diào)用過(guò)程或函數(shù)指明的參數(shù)叫實(shí)參。在NoValue函數(shù)中，說(shuō)明函數(shù)體中的AnEditBox是形參，而調(diào)用時(shí)在if NoValue(Edit1)…中，Edit1是實(shí)參。

　　數(shù)值參數(shù)在運(yùn)行過(guò)程中只改變其形參的值，不改變其實(shí)參的值，即參數(shù)的值不能傳遞到過(guò)程的外面。試看下面的例程：

　　procedure Calculate(CalNo:Integer);

　　begin

　　CalNo := CalNo*10;

　　end;

　　用以下例程調(diào)用Calculate函數(shù)：

　　…

　　Number := StrToInt(Edit1.Text);

　　Calculate(Number);

　　Edit2.Text := IntToStr(Number);

　　…

　　Number接受由編輯框1輸入的數(shù)值，經(jīng)Calculate過(guò)程運(yùn)算。它是一個(gè)數(shù)值型實(shí)參。在進(jìn)入Calculate函數(shù)后，會(huì)把Number實(shí)參拷貝給形參CalNo，在過(guò)程中CalNo增大十倍，但并未傳遞出來(lái)，因此Number值并未改變，在編輯框2中顯示仍然是編輯框1中的輸入值。形參和實(shí)參占用不同的內(nèi)存地址，在過(guò)程或函數(shù)被調(diào)用時(shí)，將實(shí)參的值復(fù)制到形參占用的內(nèi)存中。因此出了過(guò)程或函數(shù)后，形參和實(shí)參的數(shù)值是不同的，但實(shí)參的值并不發(fā)生變化。

　　如果您想改變傳入的參數(shù)值，就需要使用變量參數(shù)，即在被調(diào)用程序的參數(shù)表中的形參前加上保留字var。例如：

　　procedure Calculate(var CalNo : Integer);

　　則CalNo并不在內(nèi)存中占據(jù)一個(gè)位置，而是指向?qū)崊�Number。當(dāng)一個(gè)變參被傳遞時(shí)，任何對(duì)形參所作的改變會(huì)反映到實(shí)參中。這是因?yàn)閮蓚�(gè)參數(shù)指向同一個(gè)地址。將上一個(gè)例程中過(guò)程頭的形參CalNo前面加上var，再以同樣的程序調(diào)用它，則在第二個(gè)編輯框中會(huì)顯示計(jì)算的結(jié)果，把第一個(gè)編輯框中的數(shù)值放大十倍。這時(shí)形參CalNo和實(shí)參Number的值都是Nnmber初始值的10倍。

　　如果當(dāng)過(guò)程或函數(shù)執(zhí)行是要求不改變形參的值，最保險(xiǎn)的辦法是使用常量參數(shù)。在參數(shù)表的參數(shù)名稱前加上保留字const可以使一個(gè)形參成為常量參數(shù)。使用常量參數(shù)代替數(shù)值參數(shù)可以保護(hù)您的參數(shù)，使您在不想改變參數(shù)值時(shí)不會(huì)意外地將新的值賦給這個(gè)參數(shù)。