delphi如何添加构造和析构函数?
type
TTool=class
protected
FModel:string;
public
procedure isUse();virtual;abstract; //使用
procedure abrasion();virtual;abstract; //磨损
function model():Integer;virtual;abstract;
end;

type
THammer=class(TTool)
public
constructor Create();
destructor destroy();override;
procedure isUse();override; //使用
procedure abrasion();override; //磨损
function model():Integer;override;
end;


以上是写的一个简单的继承
但是在声明构造和析构函数时出错了,谁能帮我改正一下吗?
[错误] Unit1.pas(27): Unsatisfied forward or external declaration: 'TTool.Create'

[解决办法]
[错误] Unit1.pas(27): Unsatisfied forward or external declaration: 'TTool.Create'

这个错误是Create只是定义了，没有实现，你用Ctrl+Alt+C来生成函数，就不会报这个错了。
[解决办法]
定义了一个方法，而没有实现它。
[解决办法]
是因为只定义了构造函数，但是没有实现它

constructor Create();//只要在这一句后面按ctrl+shift+C 再编译一下就ok
[解决办法]
ctrl+shift+C