zoukankan      html  css  js  c++  java
  • Delphi 系统[15]关键字和保留字 procedure、function、forward、out

    Delphi 系统[15]关键字和保留字  procedure、function、forward、out -函数、过程相关

    1、定义:

    • procedure :定义过程,过程无返回值。主要用来执行一系列动作。还可以用来声明自定义函数类型。  
    • function :定义函数,函数有返回值。主要用来计算某一结果。还可以用来声明自定义函数类型。
    • forward :用于函数(或过程)的前置声明,这样可以使代码中“较先实现的函数”可 以调用“较后实现的函数”,如果“较后实现的函数”不做前置声明,则它不能被前面的函数调用。  
    • out :定义函数(或过程)的参数为传出类型,out 类型的参数用来将函数的执行结果通过此参数返回给调用者(传地参数)。 
      • 调用者在调用函数时,不需要给 out 类型的参数赋值,赋了也没用。 
      • 与关键字 var 比较,var:定义函数(或过程)的参数为传址类型,var类型的参数在函数内的一切改变都会返回给调用者,调用者也可以在调用函数前,给 var 参数赋值,然后传递到函数里面使用。   

    2、示例:

    {函数前置声明 forward; } 
    function CalcP(R: Double): Double; forward; 
    function CalcA(R: Double): Double; forward; 
     
    { 过程:执行一系列动作,显示圆的半径、周长、面积信息 } 
    procedure ShowInfo(Radius: Double); 
    var 
      sRadius: string; 
      sPerimeter: string; 
      sArea: string; 
    begin 
      sRadius := FloatToStr(Radius); 
     
     { 如果不做前置声明,则这里无法调用CalcP函数,因为函数在ShowInfo之后 } 
      sPerimeter :=FloatToStr(CalcP(Radius)); 
     
      { 如果不做前置声明,则这里无法调用CalcA函数,因为函数在ShowInfo之后 } 
      sArea := FloatToStr(CalcArea(Radius)); 
     
      ShowMessage('半径:' + sRadius + #13#10 + '周长:' +  sPerimeter + #13#10 + '面积:' + sArea); 
    end; 
     
    { 函数:计算圆的周长 } 
    function CalcPerimeter(R: Double): Double; 
    begin 
      { 2 乘以 派 乘以 半径,Pi 是系统函数,计算圆周率 } 
      Result := 2 * Pi *R; 
    end; 
     
    { 函数:计算圆的面积 } 
    function CalcArea(R: Double): Double; 
    begin 
      { 派 乘以 半径的平方,Pi 是系统函数,计算圆周率 } 
      Result := Pi * R * R; 
    end; 
     
    procedure TForm1.Button1Click(Sender: TObject); 
    begin 
      ShowInfo(10.5); 
      ShowInfo(30.25); 
    end; 
     
    
    
    { 声明自定义函数类型 TMyFunc } 
    type 
      TMyFunc = function(I:Integer): Integer; 
    
    { 某个函数 } 
    function GetCountNum(Num: Integer): Integer; 
    var 
      I: Integer; 
    begin 
      Result := 0; 
      for I := 0 to Num do 
      begin 
        Result := Result + I; 
      end; 
    end; 
     
    { 自定义函数类型一般用作函数或过程的参数 } 
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
      MyFunc: TMyFunc; 
      iCountNum: Integer; 
    begin 
      { 将某个同类型的函数赋值给MyFunc,要保证函数一致 } 
      MyFunc := GetCountNum; 
      { 然后 MyFunc 就可以像普通函数一样使用 } 
      iCountNum := MyFunc(100); 
      Caption := IntToStr(iCountNum);  { 结果:5050 } 
    end; 
     
    
    { var 和 out 的使用} 
    { 过程是没有返回值的,但是我们可以通过 var 或 out 参数来返回数据 } 
    procedure Test(var I: Integer; out S: String); 
    begin 
      { 查看传进来值 } 
      ShowMessage('参数I:' +IntToStr(I) + #13#10 + '参数S:' +S);  { S 将为空 } 
      { 修改参数的值,看能否传递到过程外面去 } 
      I := I + 100; 
      S := S + 'TaoRoy';  { 如果我们将这一行代码注释掉,则 S 将返回空字符串 } 
    end; 
     
    procedure TForm1.Button1Click(Sender: TObject); 
    var 
      A: Integer; 
      B: String; 
    begin 
      A := 1; 
      B := 'ABC'; 
      Test(A, B);  { 'ABC' 无法传入到函数中 } 
      Caption := IntToStr(A ) + ' ' +B;    { 结果 101 TaoRoy } 
    end; 
    

      

    创建时间:2021.08.11  更新时间:

    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    urllib使用四--urlencode,urlparse,
    urllib使用三--urlretrieve下载文件
    urllib使用二
    urllib使用一
    python使用网易邮箱发邮件
    python QQ邮件发送邮件
    可以字符串string转化成list,tuple,dict的eval()方法
    一行代码将两个列表拼接出第三个列表(两个可迭代对象相加产生第三个可迭代对象)--map()方法
    把列表中的元素拼接成字符串
    Runtime 类
  • 原文地址:https://www.cnblogs.com/guorongtao/p/15129386.html
Copyright © 2011-2022 走看看