有关于类引用的问题，

[hellotao]

我注册了一个类TStackADT = class(TComponentThread)
但是我的TStackADT 类的Constructor 方法和Persistent 类的Constructor 方法不
一致，所以下面的方法会抱编译类型错误，

var
cls : TPersistentClass;
begin
cls := FindClass(className);
c := cls.Create(Name); --》 这里有个参数，
//

但是我发现我也没有办法强制类型转换，
TStackADT(cls).Create(Name)
显然是不可能的， 因为如果TStackADT 就是我要得到的类引用，

我用 TComponentThread(cls).Create(Name) 编译可以通过，
但是运行会包错，因为TComponentThread 是 cls 的父类，不能强制转换，
现在我该怎么办？

[hellotao]

另外如果 cls 定义为我自己定义的类引用，比如 class of TComponentThread 类型，
cls := FindClass(className) 又通不过了，
因为FindClass(ClassName) 返回TPersistentClass 类型，

[alphax]

type
TStackADTClass = class of TStackADT;

cls := FindClose(ClassName);
TStackADTClass(cls).Create(Name);

[hellotao]

我自己搞定了，
自己编了一个Findclass 函数，
强制转换需要的类型就可以