A
aipingren
Unregistered / Unconfirmed
GUEST, unregistred user!
type
tone=class
onepr:integer
onepu:string
procedure onepriv
procedure onepubl;//virtual
end
type
Ttwo=class(tone)
twopr:integer
twopu:string
FF:integer
procedure onepriv
procedure onepubl;//override
end
我声明了:aa:tone
aaa:ttwo
为什么我可以这么使用:aa:ttwo.create
也就是为什么我可以把类ttwo的实例赋给aa?aa不是类tone类型的吗?为什么啊?
tone=class
onepr:integer
onepu:string
procedure onepriv
procedure onepubl;//virtual
end
type
Ttwo=class(tone)
twopr:integer
twopu:string
FF:integer
procedure onepriv
procedure onepubl;//override
end
我声明了:aa:tone
aaa:ttwo
为什么我可以这么使用:aa:ttwo.create
也就是为什么我可以把类ttwo的实例赋给aa?aa不是类tone类型的吗?为什么啊?