delphi中,能不能将基类当成派生类用?
例如:
Ta=class(TObject)
Precdure Set():virtual;abstract;
...
Tb=class(Ta);
Precdure Set():virtual;abstract;
....a:Ta
....
(a as Tb).Set();
//此处会不会有问题
例如:
Ta=class(TObject)
Precdure Set():virtual;abstract;
...
Tb=class(Ta);
Precdure Set():virtual;abstract;
....a:Ta
....
(a as Tb).Set();
//此处会不会有问题
愿闻其详
这样用就没问题:
Tb=class(Ta);
Precdure Set();override;//!!!
....
a:ta;a := tb.create;
a.set();