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

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

[delphi]view plaincopy

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

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