求助: 各位高手关注一下, 如何通过字符串类名创建类实例???????????????????

[anykey]

例如, 有如下类TB的定义:

interface
type
TB = class
x: integer;
public
constructor Create;
end;

implatation
construcotr TB.Create;
begin
x := 100;
end;


在下面代码段中使用:
var
ClassName: string;
begin
ClassName := 'TB'; //类名字符串

//然后 如果通过ClassName得到 TB类的实例 该 实例变量如何生明??????

end;

[g961681]

需要用到RegisterClass这个过程。
你要先把你工程中，所有可能的类注册一下。
然后才能，这么用！

[linzhengqun]

首先你的类要从Tpersistent继承下来，而不是TObject
然后写initialization部分

initialization
RegisterClass(TB);
然后写finalization部分

finalization
UnRegisterClass(TB);

然后在你的方法：
var
ClassName: string;
B: TB;
begin
ClassName := 'TB';
B:= TB(FindClass(ClassName)); //创建TB的实例
end;

[anykey]

谢谢两位