Как узнать, что объект - наследник какого-то базового типа?

← →
Андрон (2005-10-06 11:07) [0]

TIBQuey -> TDataSet, к примеру

← →
jack128 © (2005-10-06 11:11) [1]

if (SameObj is TDataSet) and (SameObj.ClassType <> TDataSet) then

← →
begin...end © (2005-10-06 11:15) [2]

> Как узнать, что объект - наследник какого-то базового типа?

TIBQuery является прямым наследником TIBCustomDataSet, и непрямым наследником TDataSet.

Чтобы выяснить, является ли класс непрямым наследником другого класса, используйте оператор is или метод TObject.InheritsFrom. Чтобы выяснить, кто является прямым предком данного класса, используйте метод TObject.ClassParent (а чтобы получить имя прямого предка -- ClassParent.ClassName).

Уточнение к [2]: разумеется, если класс B является прямым наследником класса A, то проверка B is A тоже даст True.

Как узнать, что объект - наследник какого-то базового типа? Найти похожие ветки