如何使用INHERITED(20分)

我想请问INHERITED的用法,能详细吗?

inherited主要用在子类重载一个父类的方法之后，要执行父类原来的方法时调用

例子： type

classA1 = class(classA);
...
procedure Create
override;
...
end;

...
procedure classA1.Create;
begin
inherited Create
//也可用 inherited
效果一样
end;

在实际应用中，什么样的情况下会如此做，能否举例

一般来说，只要是从已有的类派生一个子类，就要用上这个。
特别是当你要重载destroy方法时一定要注意，要先写你的代码，再调用
inherited,即先free子类的资源，再free父类的资源