Узнайте, наследует ли Delphi ClassType от другого ClassType?

Question

В Delphi, учитывая следующее:

TFruit = class;
TFruitClass = class of TFruit;

TApple = class(TFruit);

TRedApple = class(TApple);

Если у меня есть переменная TFruitClass, как я могу узнать, наследуется ли она от TApple?Например, у меня есть

var
  FruitClass: TFruitClass;
...
FruitClass := TRedApple;

Как я могу убедиться, что FruitClass действительно наследуется от TApple в этом случае?Использование FruitClass is TApple работает только для экземпляров классов.

Answer 1

Использовать InheritsFrom:

if TApple.InheritsFrom(TFruit) then
  ...

Вы также можете использовать

var
  Fr: TFruitClass;
  X: TObject;
begin
  if X.InheritsFrom(TFruit) then
    Fr := TFruitClass(X.ClassType);
end;

Answer 2

Я предполагаю, что вы передаете переменную FruitClass какому-либо методу, и в этом случае вы должны прочитать:

  if FruitClass.InheritsFrom(TApple) then

Обратите внимание, что вам даже не нужно проверять nil, так как InheritsFrom является функцией классаи, следовательно, не требует назначения переменной Self.