_Vasilisk_Нашел такой способ
1.
2.
3.
4.
TChild = class(TBase)
public
procedure Test(AVal: Integer); reintroduce; overload;
end;
насколько это кошерно?
Грустно.... Когда задают такие вопросы... особенно опытные... на собеседовании я бы закончил разговор.
Из справки
helpAn override declaration must match the ancestor declaration in the order and type of its parameters and in its result type (if any).
helpUse reintroduce when you want to hide an inherited virtual method with a new one
Если вы хотите чтобы 2 метода объявленные в разных классах, один из которых наследник второго, были видны другим наследникам, то оба метода объявляете override.
Если вы хотите, чтобы эти методы могли изменять в наследниках, то добавляете еще virtual.
Если вы хотите для последующих наследников скрыть базовую реализацию в базовом классе и оставить видимой последнюю, то используете reintroduce
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
TA = class
public
procedure Test1; virtual;
procedure Test2; overload; virtual;
procedure Test3; virtual;
procedure Test4; virtual;
end;
TB = class(TA)
public
procedure Test1(const aParam: Int32); reintroduce; virtual;
procedure Test2(const aParam: Int32); overload; virtual;
procedure Test3; override;
procedure Test4; overload; override;
procedure Test4(const aParam: Int32); reintroduce; overload; virtual;
end;
TC = class(TB)
public
procedure Test1(const aParam: Int32); override;
procedure Test2; override;
procedure Test2(const aParam: Int32); override;
procedure Test3; override;
procedure Test4; override;
procedure Test4(const aParam: Int32); overload; override;
end;
Цель то какая?
