基类的定义(20)

S

shengge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-09

• #1

Tnewclass= classTnewclass = class(TObject) 在一个类中 为什么在这个 Tnewclass = class(TObject) 类定义前面加 Tnewclass= class 能起到什么用处啊？

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-09

• #2

Tnewclass= class; //forward(前置)声明Tnewclass = class(TObject);单纯这样写当然没什么效果了。这样写就不同了：Tnewclass = class;TNewClassNotifyEvent = procedure(Sender:Tnewclass) of object;Tnewclass = class(TObject)end;这样就不同了。你试着把那个forward声明删除试试，看编译器给不给你面子？

 

H

hanyuhen1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-09

• #3

地质灾害到家了？

 

S

shengge

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-09

• #4

接受答案了.