在线求解...
我是delphi初学者，今天上头要我用这个函数指针传递参数,,我想问一下就是：函数指针传参这个工作原理是什么？？？谁能给我详细的解说一下，举例最好,谢谢！
[解决办法]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type//定义一个函数指针，名为PCalc
TCalc = function(a, b: integer): integer;
PCalc = ^TCalc;
function FunA(a, b: integer): integer;//定义一个加法函数
begin
Result := a + b;
end;
function FunB(a, b: integer): integer;//定义一个减法函数
begin
Result := a - b;
end;
function Calc(CalcFun: PCalc; a, b: integer): integer;//定义一个计算函数，计算结果由传进来的函数指针决定
begin
Result := TCalc(CalcFun)(a, b);//调用函数指针CalcFun计算两个数
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(Calc(@FunA, 100, 10)));//传递加法函数到Calc函数内，会得到100+10的结果
end;
procedure TForm1.Button2Click(Sender: TObject);//传递减法函数到Calc函数内，会得到100-10的结果
begin
ShowMessage(IntToStr(Calc(@FunB, 100, 10)));
end;
end.
