A
afey
Unregistered / Unconfirmed
GUEST, unregistred user!
TDesigner=class(TActiveForm,IDesigner);
TmyDesigner=class(TDesigner)
public
procedure BeforeChange;virtual;abstract;
end;
TReport=classs(TmyDesigner,IReport)
public
procedure BeforeChangeverride;
end;
implemention
BeforeChange函数的实现
然后创建一个TmyDesigner的一个对象myDesigner,然后调用myDesigner.BeforeChange;当程序运行到这个函数时,总会出错说'Abstract Error',到底是什么错误啊??
TmyDesigner=class(TDesigner)
public
procedure BeforeChange;virtual;abstract;
end;
TReport=classs(TmyDesigner,IReport)
public
procedure BeforeChangeverride;
end;
implemention
BeforeChange函数的实现
然后创建一个TmyDesigner的一个对象myDesigner,然后调用myDesigner.BeforeChange;当程序运行到这个函数时,总会出错说'Abstract Error',到底是什么错误啊??