Question

delphi中inherited是怎么用的阿

Answer 1

inherited就是继承执行父类的方法，给你举个简单的例子：
TA = class(TObject)
private
FCount: Integer;
public
constructor Create(AOwner: TComponent); override;
procedure AddCount(ACount: Integer); virtual;
property Count: Integer read FCount write FCount;
end;
TB = class(TA)
public
procedure AddCount(ACount: Integer); override;
end;
......

{ TA }
procedure TA.AddCount(ACount: Integer);
begin
inc(FCount, ACount);
end;
constructor TA.Create(AOwner: TComponent);
begin
inherited;
FCount := 0;
end;
{ TB }
procedure TB.AddCount(ACount: Integer);
begin
inherited; //这个就是调用父类的 AddCount函数
Count := Count + 100; // 假如在这里再增加值
end;

.....
var
b: TB;
begin
b := TB.Create(nil);
b.AddCount(20);
// 当调用b的AddCount时，会先执行inherited;就是调用父类同名(被重写)过程，
// 此时，Count为20，然后再执行第二句Count := Count + 100;
// 此时Count为120。如果TB.AddCount的函过程里没有inherited;就不会执行父类的同名过程， 那么最终Count的值为100。
end;