注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

Delphi 函数指针 过程/函数类型  

2013-08-16 12:32:57|  分类: delphi xe4 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
2011-11-29 14:20 46人阅读 评论(0) 收藏 举报
 

Pascal 中的过程类型与C语言中的函数指针相似,为了统一说法,以下称函数指针。函数指针的声明只需要参数列表;如果是函数,再加个返回值。下面讲解指向非对象(一般的)函数/过程的函数指针。

例如声明一个过程类型,该类型带一个通过引用传递的整型参数:

type 
  IntProc = procedure (var Num: Integer); //IntProc是指向过程的函数指针

这个过程类型与任何参数完全相同的例程兼容,即用它声明的变量,可以指向任何此类函数,并通过其进行函数的调用。

下面是一个兼容例程:

procedure DoubleTheValue (var Value: Integer);
begin
Value := Value * 2;
end;

函数指针能用于两种不同的目的:声明函数指针类型的变量;或者把函数指针作为参数传递给另一例程。利用上面给定的类型和过程声明,你可以写出下面的代码:

var 
  IP: IntProc; 
  X: Integer; 
begin 
  IP := DoubleTheValue; 
  X := 5; 
  IP (X); 
end;

虽然这种调用方法比直接调用麻烦了,那么我们为什么要用这种方式呢?

(1)因为在某些情况下,调用什么样的函数需要在实际中(运行时)决定,你可以根据条件来判断,实现用同一个表达,调用不同的函数,很是灵活.

(2)利用函数指针我们可以实现委托,委托在.NEt中被发挥的淋漓尽致,但Delphi同样能实现

(3)实现回调机制

 delphi中可以通过函数指针把一个函数作为参数来传递,然后在另外一个函数中调用。

     1) 首先,申明函数指针类型TFunctionParameter。

        type
           TFunctionParameter = function(const value : integer) : string;

      2) 定义准备被作为参数传递的函数

          function One(const value : integer) : string;
          begin
             result := IntToStr(value) ;
          end;

          function Two(const value : integer) : string;
          begin
             result := IntToStr(2 * value) ; 
          end;
      
      3) 定义将要使用动态函数指针参数的函数

         function DynamicFunction(f : TFunctionParameter; const value : integer) : string;
         begin
            result := f(value) ;
         end;

       4) 上面这个动态函数的使用实例

         var
            s : string;
         begin
            s := DynamicFunction(One,2011) ;
            ShowMessage(s) ; //will display "2006"

            s := DynamicFunction(Two,2011) ;
            ShowMessage(s) ; // will display "4022"
         end; 

  评论这张
 
阅读(250)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017