利用反射机制动态调用方法

 

1. unit Unit1;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, ObjAuto, StdCtrls;
9. type
10. {$MethodInfo ON}
11. TTestCall = class(TPersistent)
12. public
13.     function Add(X,Y: integer): integer;
14.     procedure Msg(s: string);
15. end;
16. {$MethodInfo OFF}
18. TForm1 = class(TForm)
19.     Button1: TButton;
20.     Button2: TButton;
21.     procedure FormCreate(Sender: TObject);
22.     procedure Button1Click(Sender: TObject);
23.     procedure Button2Click(Sender: TObject);
24. private
25.     { Private declarations }
26. public
27.     { Public declarations }
28. end;
30. var
31. Form1: TForm1;
33. implementation
35. {$R *.dfm}
37. procedure TForm1.Button1Click(Sender: TObject);
38. var
39. tc:TTestCall;
40. mih: PMethodInfoHeader;
41. res:integer;
42. begin
43. tc := TTestCall.Create;
44. mih := Objauto.GetMethodInfo(tc,'Msg');
45. ObjAuto.ObjectInvoke(tc, mih, [1], ['orz...']);
46. tc.Free;
47. end;
49. procedure TForm1.Button2Click(Sender: TObject);
50. var
51. tc:TTestCall;
52. mih: PMethodInfoHeader;
53. res:integer;
54. begin
55. tc := TTestCall.Create;
56. mih := Objauto.GetMethodInfo(tc,'Add');
57. res:=ObjAuto.ObjectInvoke(tc, mih, [1,2], [10,20]);
58. ShowMessage(Inttostr(res));
59. tc.Free;
61. end;
63. procedure TForm1.FormCreate(Sender: TObject);
64. begin
65. end;
67. { TTestCall }
69. function TTestCall.Add(X, Y: integer): integer;
70. begin
71. result := X+Y;
72. end;
74. procedure TTestCall.Msg(s: string);
75. begin
76. ShowMessage(s);
77. end;
79. end.