3418
社区成员
3.3w+
社区内容
- 主页
~~~~~~~~~~如何根据类名称创建对象~~~~~~~~~~
已知：
1。类名称，如'TButton'，是以字符串的形式提供的；
2。a: TObject;
求：创建TButton的实例a？
1。类名称，如'TButton'，是以字符串的形式提供的；
2。a: TObject;
求：创建TButton的实例a？
...全文
hfyun 2003年01月14日
//给个思路
var
a: TObject;
begin
//必须在调用前确保类已注册，当然可以在系统初始化时做，只需注册一次就行。
RegisterClass(TButton) ;
//创建实例
a := GetClass('TButton').Create ;
//
a.Free ;
end;
end;
var
a: TObject;
begin
//必须在调用前确保类已注册，当然可以在系统初始化时做，只需注册一次就行。
RegisterClass(TButton) ;
//创建实例
a := GetClass('TButton').Create ;
//
a.Free ;
end;
end;
richard_ouyang 2003年01月14日
你的a应该实现Tbutton的，为什么是TObject，概念不对。