• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

delphi中的函数指针回调函数（传递函数指针，以及它需要的函数参数） ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

以下代码仅仅是测试代码：delphi XE7 UP1

 

 

 

[delphi] view plain copy
 
  1. interface  
  2.   
  3. uses  
  4.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,  
  5.   System.Classes, Vcl.Graphics,  
  6.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;  
  7.   
  8. type  
  9.   TForm1 = class(TForm)  
  10.     btn1: TButton;  
  11.     btn2: TButton;  
  12.     edt1: TEdit;  
  13.     procedure btn1Click(Sender: TObject);  
  14.     procedure FormCreate(Sender: TObject);  
  15.     procedure FormShow(Sender: TObject);  
  16.     procedure FormDestroy(Sender: TObject);  
  17.   private  
  18.     { Private declarations }  
  19.   
  20.   public  
  21.     { Public declarations }  
  22.   end;  
  23.   
  24.   TMethod = procedure(v:string);  
  25. var  
  26.   Form1: TForm1;  
  27.   FList: TList;  
  28.   
  29. implementation  
  30.   
  31. {$R *.dfm}  
  32.   
  33. procedure p1(v:string);  
  34. begin  
  35.   ShowMessage('p1'+v);  
  36. end;  
  37.   
  38. procedure p2(v:string);  
  39. begin  
  40.   ShowMessage('p2'+v);  
  41. end;  
  42.   
  43.   
  44.   
  45. procedure callt(my:TMethod;v:string);  
  46. begin  
  47.   my(v);  
  48. end;  
  49.   
  50.   
  51.   
  52. procedure TForm1.btn1Click(Sender: TObject);  
  53. var  
  54.   v_s:string;  
  55. begin  
  56.   v_s:= edt1.Text;  
  57.   callt(FList.Items[StrToInt(v_s)],v_s);  
  58. end;  
  59.   
  60. procedure TForm1.FormCreate(Sender: TObject);  
  61. begin  
  62.    FList := TList.Create;  
  63. end;  
  64.   
  65. procedure TForm1.FormShow(Sender: TObject);  
  66. begin  
  67.   FList.Add(@p1);  
  68.   FList.Add(@p2);  
  69.   edt1.Clear;  
  70. end;  
  71.   
  72. procedure TForm1.FormDestroy(Sender: TObject);  
  73. begin  
  74.   FreeAndNil(FList);  
  75. end;  
  76.   
  77. end.  

http://blog.csdn.net/rznice/article/details/43190537

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi中的进制转换发布时间：2022-07-18
下一篇：
Delphi控制输入为数字或字母发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap