delphi 回调函数与函数指针

1.回调函数其实就是通过函数指针进行调用函数的，具体使用例子如下

       a)  定义回调函数类型  

     type
           THDFunction=function(k:integer;sExam:string):integer; stdcall;

         b)  回调函数的实现            

     Function HdFunExample(k:integer;sExam:string):integer; stdcall;
     Begin
        if k=1226 then
           ShowMessage(sExam);
     End;

     

          c)  回调函数的调用

                  i)  定义调用回调函数的函数

         function TForm1.DyHdFunExample(HdFun:THDFunction;I:Integer;str:string):boolean;
         begin
             HdFun(i,str);
         end;

                  ii)调用回调函数             

         procedure TForm1.btn7Click(Sender: TObject);
         begin
            DyHdFunExample(@HdFunExample,1226,'yes');
         end;