通过类名称（字符串）创建类实例

标签：io   使用   ar   for   代码   on   c   new   r   

首先要在 initialization 区域注册要创建的类 RegisterClass(TYourClass);

然后在运行期使用如下代码创建 TYourClass 类的实例。

procedure Txxx.xxxx;
var
cls: TPersistentClass;
ys: TYourClass;
begin
cls := GetClass(‘TForm2‘);
ys := TYourClass(cls.NewInstance).Create(xxx);
ys.xxxx;
end;

通过类名称（字符串）创建类实例

标签：io   使用   ar   for   代码   on   c   new   r   

原文地址：http://www.cnblogs.com/spiritofcloud/p/3976162.html