Delphi 通过字符串实例化类

通过字符串创建窗体类对象 
1、需要在程序初始化的时候将类注册，注册到对象 RegGroups:（TRegGroups）中，以便查找。 
注册类使用的函数:RegisterClass ，窗体初始化操作放在initialization 中。

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

type

  TfrmReg = class(TForm)

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  frmReg: TfrmReg;

implementation

{$R *.dfm}

initialization //初始化开始

  RegisterClass(TfrmReg) ; //注册类对象

end.

2、利用FindClass根据类名来查找类对象。

//根据类名创建对象

procedure TForm1.Button1Click(Sender: TObject);

var

  FormClass : Tformclass ;

  Form : TForm ;

begin

   FormClass := Tformclass(findclass('TfrmReg')) ;

   Application.Createform(FormClass,Form) ;

   Form.Show ;

end;

initialization —— 在单元中放在文件结尾前，包含用来初始化单元的代码，它在主程序运行前运行并且只运行一次。

finalization —— 在单元中放在 initialization 和 end. 之间，包含了单元退出时的代码。在程序退出时运行并且只运行一次。