乡下人产国偷v产偷v自拍,国产午夜片在线观看,婷婷成人亚洲综合国产麻豆,久久综合给合久久狠狠狠9

  • <output id="e9wm2"></output>
    <s id="e9wm2"><nobr id="e9wm2"><ins id="e9wm2"></ins></nobr></s>

    • 分享

      delphi7的function與procedure

       容心居 2020-03-11
      資料來(lái)源:CSDN中的z1074971432的專(zhuān)欄

      Delphi把操作數(shù)據(jù)的方法分成了兩種,

      一種是function,另一種是procedure,分別稱(chēng)為“函數(shù)”和“過(guò)程”,

      這二者最大的差別就是函數(shù)擁有返回值而過(guò)程沒(méi)有,比如按鈕的事件響應(yīng)過(guò)程,這就是一個(gè)過(guò)程,因此它沒(méi)有返回值;

      而一個(gè)簡(jiǎn)單的函數(shù)如求字符串長(zhǎng)度的函數(shù)Length,它的函數(shù)原形為

      function Length(S:string):Integer;

      這個(gè)函數(shù)有一個(gè)參數(shù)S,是您要計(jì)算的字符串,它的返回值是一個(gè)整數(shù)類(lèi)型,返回字符串的長(zhǎng)度。

      舉一個(gè)例子來(lái)說(shuō)吧: 假設(shè)需要一個(gè)函數(shù)GetNum(),它有兩個(gè)整形參數(shù)num1,num2,函數(shù)經(jīng)過(guò)計(jì)算后返回這兩個(gè)整數(shù)的平均數(shù),

      函數(shù)如下:

      function GetNum(num1:Integer;num2:Integer):Integer;

      //函數(shù)名var haha:Integer;Begin Result:=(num1+num2)/2;

      //將計(jì)算結(jié)果賦給Result

      //GetNum:=(num1+num2)/2;

      //也可以這樣寫(xiě) haha:=555;

      //如果對(duì)函數(shù)名賦值,函數(shù)就返回,就是說(shuō),如果使用GetNum:=(num1+num2)/2;對(duì)函數(shù)賦值,這句將永遠(yuǎn)執(zhí)行不到。

      End;

       

      函數(shù)的聲明:function 函數(shù)標(biāo)示符(參數(shù)列表):返回值;

      函數(shù)的定義:function MyFunc(Param1,Param2:Integer;Param3:Real):Integer;

      //函數(shù)參數(shù)間用分號(hào)隔開(kāi),括號(hào)外面的類(lèi)型是函數(shù)的返回類(lèi)型。

      Begin

      //函數(shù)的定義部分

      End;

       

      函數(shù)返回值有兩種賦值方法:

          一種是直接對(duì)函數(shù)名賦值,另一種是賦值給Result變量。對(duì)函數(shù)名賦值將導(dǎo)致函數(shù)返回。Result是函數(shù)特有的局部變量,它的類(lèi)型與函數(shù)的返回類(lèi)型相同,對(duì)它的賦值等于對(duì)函數(shù)名賦值。與函數(shù)名不同,Result變量可以出現(xiàn)在賦值號(hào)的右邊,如果函數(shù)名出現(xiàn)在賦值號(hào)的右邊時(shí),則意味著遞歸調(diào)用,也就是函數(shù)調(diào)用它自己。

          另外,對(duì)Result賦值不一定導(dǎo)致函數(shù)返回,如:

          function MyFunc(s:Integer):Integer;

          Begin Result:=Result*s; //執(zhí)行賦值但不返回。

               MyFunc:=s*s;//賦值后程序返回。

          End;

       

      例2:

          function MyFunc():Integer;

          Begin

              Result:=Result+5; //如果使用MyFunc():=MyFunc()+5;將導(dǎo)致死循環(huán)。

          End;

      [delphi] view plain copy
      function MyFunc(s:Integer):Integer;  
        
          Begin Result:=Result*s; //執(zhí)行賦值但不返回。   
        
               MyFunc:=s*s;//賦值后程序返回。   
        
          End;例2:  
        
          function MyFunc():Integer;  
        
          Begin   
        
              Result:=Result+5; //如果使用MyFunc():=MyFunc()+5;將導(dǎo)致死循環(huán)。  
        
          End;  

        本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶(hù)發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購(gòu)買(mǎi)等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
        轉(zhuǎn)藏 分享 獻(xiàn)花(0

        0條評(píng)論

        發(fā)表

        請(qǐng)遵守用戶(hù) 評(píng)論公約

        類(lèi)似文章 更多