急！能不能根据字符串创建对象？？就像java的Class.forName("xxx")那样？？(100分)

B

budianermayi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #1

我想通过一个类的名字（字符串）创建一个类的对象，能在Delphi实现吗？就像java中的
Class.forName("objectName" )那样？通过字符串得到一个类的指针，然后newInstance（）
就可以得到对象了，delphi行吗？？？
是不是非要使用COM？？？不用能实现吗？

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #2

这问题需要使用RTTI（运行时类型信息来处理），查一下FindComponent，你会查到一大堆
关于此问题解决方法的贴子。

 

B

budianermayi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-05

• #3

多谢Sachow大侠！
不过，如果我想find 的类并不是Component类型的呢？怎么办呢？而且，FindComponent
只能找到当前已经存在的对象啊！

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #4

可以

 

B

budianermayi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #5

请问怎么实现?

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #6

你是要创建已经注册的类的对象，用FindClass，然后创建

 

F

fssky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #7

楼上说的

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-12

• #8

前提是你的对象的类要先注册。例如：
TForm2 = class(TForm)
...
RegisterClass(TForm2)
// 这样

然后可以这样：
type
TFormClass = class of TForm;

MyForm := TFormClass(GetClass('TForm2')).Create(Application);

 

L

lynu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #9

C++Builder中就用__ClassID(String)

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #10

FindClass.
你查一下动态加载包，就能找到一大堆根据类名创建对象的例子

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-13

• #11

呵呵，FindClass 也是调用的 GetClass，如果指定类找不到的话
FindClass 返回 nil，而 GetClass 则引发异常。

 

B

budianermayi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-23

• #12

还有疑问?好想各位说的只限于Form或者component类型的类,是吗?如果我想要创建别的类呢
?比如说能不能直接创建从TObject派生出来的类????

 

L

lxn2philips

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-28

• #13

最简单的方法就是通过Case语句对比输入的字符串来创建相应的类