zoukankan      html  css  js  c++  java
  • How to Use a Function or a Procedure as a Parameter in another Function

    http://delphi.about.com/od/adptips2006/qt/functionasparam.htm

    In Delphi, procedural types (method pointers) allow you to treat procedures and functions as values that can be assigned to variables or passed to other procedures and functions.

    Here's how to call a function (or procedure) as a parameter of another function (or procedure) :

    1. Declare the function (or procedure) that will be used as a parameter. In the example below, this is "TFunctionParameter".
    2. Define a function that will accept another function as a parameter. In the example below this is "DynamicFunction"
    type    
    TFunctionParameter = function(const value : integer) : string;  
    ...  
    function One(const value : integer) : string; 
    begin    
        result := IntToStr(value) ; 
    end;  
    
    function Two(const value : integer) : string; 
    begin    
        result := IntToStr(2 * value) ; 
    end;  
    
    function DynamicFunction(f : TFunctionParameter) : string; 
    begin    
        result := f(2006) ; 
    end;  
    ...  
    //Example usage:  
    var    s : string; 
    begin    
        s := DynamicFunction(One) ;    
        ShowMessage(s) ; //will display "2006"     
        s := DynamicFunction(Two) ;    
        ShowMessage(s) ; // will display "4012" 
    end;

    Note:

    • Of course, you decide on the signature of the "TFunctionParameter": whether it is a procedure or a function, how many parameters does it take, etc. 
    • If "TFunctionParameter" is a method (of an instance object) you need to add the words of object to the procedural type name, as in:
      TFunctionParameter = function(const value : integer) : string of object; 
    • If you expect "nil" to be specified as the "f" parameter, you should test for this using the Assigned function. 
    • Fixing the "Incompatible type: 'method pointer and regular procedure'"
  • 相关阅读:
    Python异常处理
    Python序列化中json模块和pickle模块
    Python常用模块random/time/sys/os模块
    软件测试--读书笔记
    团队作业——系统设计和任务分配
    结对项目之需求分析与原型设计
    生成小学计算题(升级版)
    生成小学计算题
    软件工程基础
    第一个微信小项目
  • 原文地址:https://www.cnblogs.com/shangdawei/p/3971930.html
Copyright © 2011-2022 走看看