Я использую очень большую стороннюю библиотеку delphi без исходного кода, эта библиотека имеет несколько классов с абстрактными методами. Мне нужно определить, когда метод abtract реализуется классом Descendant во время выполнения, чтобы избежать EAbstractError: Abstract Error
и отображает пользовательское сообщение для пользователя или вместо него использует другой класс.
например, в этом коде, я хочу проверить выполнение во время выполнения MyAbstractMethod
.
type
TMyBaseClass = class
public
procedure MyAbstractMethod; virtual; abstract;
end;
TDescendantBase = class(TMyBaseClass)
public
end;
TChild = class(TDescendantBase)
public
procedure MyAbstractMethod; override;
end;
TChild2 = class(TDescendantBase)
end;
Как я могу определить, реализуется ли абстрактный метод в классе Descendant во время выполнения?