Delphi使用FindClass实现动态建立对像（有点像反射）

相关资料：http://www.blogjava.net/nokiaguy/archive/2008/05/10/199739.html

 {
 http://www.blogjava.net/nokiaguy/archive/2008/05/10/199739.html
 在delphi中动态建立类的实例可分为4步。
 1. 声明一个从TPersistent继承的类。因为在注册类时要求必须从TPersistent继承。
 2. 注册类。可以使用RegisterClass等过程进行注册。
 3. 验证类是否被注册（可选）。如果确定要建立的类已经注册了，可以省略此步。
 4. 得到并建立类。可使用FindClass(classname)得到要建立的类，然后使用Create方法建立类的实例。
 }

 unit Unit1;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, jpeg;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     Edit1: TEdit;
     Image1: TImage;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

   TMyClass = class(TPersistent)
   public
     function GetValue: String;
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 { TMyClass }

 function TMyClass.GetValue: String;
 begin
   Result := 'hello world';
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   class1: TMyClass;
 begin
   if GetClass('TMyClass')<>nil then
   begin
     class1 := FindClass('TMyClass').Create as TMyClass;
     Edit1.Text := class1.GetValue;
   end;
 end;

 Initialization //可将这两行放在end.的前面
   RegisterClass(TMyClass);

 end.