反射机制传递类

鉴于某人说Delphi的反射不能传入或传出类，我在此纠正一下这个说法，下面的代码可以证实，类可以传入传出。
由于我已经把D2009的反射单元移去D2007，因此就不用D2009了，所以代码中暂时不考虑Unicode的问题。

 

1. unit Unit1;
3. interface
5. uses
6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7. Dialogs, ObjAutoX, StdCtrls;
9. type
10. {$MethodInfo ON}
11. TTest=class(TPersistent)
12. public
13.     procedure Call(s: string; AForm: TForm);
14.     function Call2(s: string): TComponent;
15. end;
16. {$MethodInfo OFF}
18. TForm1 = class(TForm)
19.     Button1: TButton;
20.     Button2: TButton;
21.     procedure Button1Click(Sender: TObject);
22.     procedure Button2Click(Sender: TObject);
23. private
24.     { Private declarations }
25. public
26.     { Public declarations }
27. end;
29. var
30. Form1: TForm1;
32. implementation
34. {$R *.dfm}
36. procedure TForm1.Button1Click(Sender: TObject);
37. var
38. t: TTest;
39. mih : PMethodInfoHeader;
40. begin
41. t := TTest.Create;
42. mih := GetMethodInfo(t, 'Call');
43. ObjectInvoke(t, mih, [1,2], ['222',Integer(self)]);
44. end;
46. procedure TForm1.Button2Click(Sender: TObject);
47. var
48. t: TTest;
49. mih : PMethodInfoHeader;
50. ret: Integer;
51. begin
52. t := TTest.Create;
53. mih := GetMethodInfo(t, 'Call2');
54. ret:=ObjectInvoke(t, mih, [1,2], ['button1']);
55. TButton(ret).Caption := '222';
56. end;
58. { TTest }
60. procedure TTest.Call(s: string; AForm: TForm);
61. begin
62. ShowMessage(s+':'+AForm.Caption);
63. end;
65. function TTest.Call2(s: string): TComponent;
66. begin
67. Result := form1.FindComponent(s);
68. end;
70. end.