动态调用需要的方法

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, StdCtrls;
9. type
10.   TForm1 = class(TForm)
11.     Edit1: TEdit;
12.     Button1: TButton;
13.     procedure Button1Click(Sender: TObject);
14.     procedure xx1;
15.     procedure xx2;
16.     procedure xx3;
17.   private
18.     { Private declarations }
19.     FExampleMethod : TNotifyEvent;
20.     //TNotifyEvent是一个Delphi最基本的事件类型，多用于触发事件，也可以自己定义一个函数类型作为事件触发
22.   public
23.     { Public declarations }
24.     procedure GetFcun(MethodName:string);
26.   end;
28. var
29.   Form1: TForm1;
31. implementation
33. {$R *.dfm}
35. procedure TForm1.GetFcun(MethodName: string);
36. begin
37.   @FExampleMethod := MethodAddress(MethodName);
38.                      //MethodAddress(MethodName)返回 MethodName的地址
39.                      //MethodAddress只支持published声明的方法
40.   if Assigned(@FExampleMethod) then //用Assigned测试函数或过程变量是否为空
41.   FExampleMethod(nil);
42. end;
44. procedure TForm1.xx1;
45. begin
46.   showmessage('xx1');
47. end;
49. procedure TForm1.xx2;
50. begin
51.   showmessage('xx2');
52. end;
54. procedure TForm1.xx3;
55. begin
56.   showmessage('xx3');
57. end;
60. procedure TForm1.Button1Click(Sender: TObject);
61. begin
62.     GetFcun(Edit1.Text);//调用GetFcun执行需要的方法
63. end;
65. end.