Delphi 通过字符串实例化类

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.

//根据类名创建对象
procedure TForm1.Button1Click(Sender: TObject);
var
  FormClass : Tformclass ;
  Form : TForm ;
begin
   FormClass := Tformclass(findclass(‘TfrmReg‘)) ;
   Application.Createform(FormClass,Form) ;
   Form.Show ;
end;