delphi中函数指针的使用

iteye_6233

于 2012-07-09 20:34:00 发布

阅读量129

点赞数

本文介绍了如何在Delphi中利用函数指针实现函数作为参数的传递与调用。通过定义函数指针类型TFunctionParameter及两个实例函数，演示了如何在动态函数中使用这些函数指针。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

1) 首先，申明函数指针类型TFunctionParameter
type
TFunctionParameter = function(const value : integer) : string; //函数指针

2) 定义准备被作为参数传递的函数
function One(const value : integer) : string; //函数-实例1
begin
result := IntToStr(value) ;
end;

function Two(const value : integer) : string; //函数-实例2
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,2006) ;
ShowMessage(s) ; //will display "2006"

s := DynamicFunction(Two,2006) ;
ShowMessage(s) ; // will display "4012"
end;