delphi2005程序設(shè)計(jì)及其應(yīng)用開(kāi)發(fā)-第2章objectpascal程序設(shè)計(jì)語(yǔ)言(參考版)
2025-01-12 01:07本頁(yè)面
【正文】 過(guò)程調(diào)用時(shí) Forward使用 舉例 返回本節(jié) Thank You Very Much! ?本章到此結(jié)束， ?謝謝您的光臨！ 結(jié)束放映 返回本章首頁(yè) 。+IntToStr(y))。 if y0 Then showmessage(39。 procedure Test2(Var y:Integer)。)。 end else Showmessage(39。+IntToStr(x))。 if x0 Then begin Showmessage(39。 procedure Test1(Var x:Integer)。 函數(shù)定義與調(diào)用舉例 返回本節(jié) procedure Test2(Var y:Integer)。 begin :=IntToStr(Numb(StrToInt()))。 end。 返回本節(jié) Function Numb(N:integer):Integer。 //會(huì)導(dǎo)致編譯錯(cuò)誤 Result := CalcNo。 Function MathCalculate(const CalcNo:Integer)： Integer。常量參數(shù)的主要體現(xiàn)是在參數(shù)前加了保留字 Const。 ? 程序運(yùn)行后，點(diǎn)擊窗體上的 Button1按鈕，編輯框 Edit1和 Edit2內(nèi)顯示的值全變?yōu)?50，這說(shuō)明在調(diào)用函數(shù) MathCalculate后， Num的值也發(fā)生了變化，變成了原值的 5倍。 Result := CalcNo。為了驗(yàn)證這一點(diǎn)，我們可將上例中的 MathCalculate函數(shù)修改如下： Function MathCalculate(var CalcNo:Integer)： Integer。 2． 引用參數(shù) ? 在過(guò)程或函數(shù)定義中，若參數(shù)前加了保留字 Var，即表示該參數(shù)為引用參數(shù)。 := IntToStr( Value)。 Value := MathCalculate(Num)。 Var Num, Value :Integer。 End。 Begin CalcNo:= CalcNo * 5。在過(guò)程或函數(shù)定義中，若參數(shù)前不加任何的保留字，即為傳值參數(shù)。 另外 ， 形參一般為變量 ，而實(shí)參可以為常量 、 變量或表達(dá)式；當(dāng)實(shí)參數(shù)目達(dá)到二個(gè)以上時(shí) ， 各實(shí)參之間須用逗號(hào)分隔 ， 而不能像形參那些用分號(hào)隔開(kāi) 。 過(guò)程與函數(shù)的調(diào)用 返回本節(jié) 過(guò)程與函數(shù)的參數(shù)傳遞 ? 在過(guò)程或函數(shù)定義時(shí)使用的參數(shù)稱為形參 ， 而在過(guò)程或函數(shù)調(diào)用時(shí)使用的參數(shù)稱為實(shí)參 。例如： Sum := MyFunc(3,4,5)。 //調(diào)用 MyProc過(guò)程，顯示“ Name:Liming Age:37”信息框 ? 而函數(shù)調(diào)用語(yǔ)句不是一個(gè)獨(dú)立的語(yǔ)句，它必須有一個(gè)返回值，且返回值的數(shù)據(jù)類型必須與定義相同。LiMing39。 返回本節(jié) ? 過(guò)程和函數(shù)的調(diào)用有些不同。 begin Result :=X+Y+Z。 //將字符串的內(nèi)容在信息框中顯示出來(lái) End。+ InttoStr(Age)。+ 39。 +Name+ 39。 begin Mystr := 39。 Age: Integer)。 2． 過(guò)程與函數(shù)的定義 ? 過(guò)程和函數(shù)聲明完以后 ， 還需要在程序的 Implementation部分對(duì)其進(jìn)行定義 。函數(shù)聲明的一般形式為： function 函數(shù)名 (參數(shù)列表 )：函數(shù)返回值類型 。 例如： Procedure MyProc (Name: string； Age: Integer)。如果有多個(gè)參數(shù)，則參數(shù)之間用分號(hào)隔開(kāi)。過(guò)程聲明的一般形式為： Procedure 過(guò)程名 (形參列表 )。聲明過(guò)程時(shí)要用保留字 Procedure，聲明內(nèi)容包括過(guò)程名及形式參數(shù)類型。 end。 //給集合變量賦值 for C in CharSet do begin //對(duì) CharSet集合中的每一個(gè)元素進(jìn)行操作 := + C。 //聲明一個(gè)字符型變量 procedure (Sender: TObject)。 //定義一個(gè)集合類型 var CharSet: TCharSet。 end。 for I:=1 to 10 DO begin (IntToStr(I))。 Var I:Integer。 end。 (IntToStr(I))。 begin I:=0。 返回 While…do循環(huán)語(yǔ)句舉例 procedure (Sender: TObject)。 Until I=10。 Repeat I:=I+1。 Var I:Integer。 在 Object Pacsal中 ， 循環(huán)語(yǔ)句主要有以下三種類型： 1. Repeat…until循環(huán)語(yǔ)句 ： 舉例說(shuō)明 2. While…do循環(huán)語(yǔ)句 ： 舉例說(shuō)明 3. For…do循環(huán)語(yǔ)句 ： 舉例說(shuō)明 For…in…do循環(huán)語(yǔ)句 ： 舉例說(shuō)明 在 Delphi 2022中 ， 還針對(duì) Delphi for .NET以及Delphi for Win32應(yīng)用程序而新增加了 For…in…do循環(huán)語(yǔ)句 。 //標(biāo)號(hào)標(biāo)識(shí)語(yǔ)句 end。Happy Birthday39。 //顯示“ Happy World”信息框 Exit。Happy World39。 if Today = Birthday then Goto Hello。 begin Today := Date。 label Hello。 end。 End。數(shù)值不在 0至 100之間 。大于 5039。小于等于 5039。 begin Number:=StrToInt()。 返回
范文總結(jié)相關(guān)推薦
鄂ICP備17016276號(hào)-1