| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать, что объект - наследник какого-то базового типа?
Андрон © (2005-10-06 11:07:00)TIBQuey -> TDataSet, к примеру
begin...end (2005-10-06 11:20:00) [1]Уточнение к [2]: разумеется, если класс B является прямым наследником класса A, то проверка B is A тоже даст True.
begin...end (2005-10-06 11:15:00) [2]> Как узнать, что объект - наследник какого-то базового типа?
TIBQuery является прямым наследником TIBCustomDataSet, и непрямым наследником TDataSet.
Чтобы выяснить, является ли класс непрямым наследником другого класса, используйте оператор is или метод TObject.InheritsFrom. Чтобы выяснить, кто является прямым предком данного класса, используйте метод TObject.ClassParent (а чтобы получить имя прямого предка -- ClassParent.ClassName).
jack128 (2005-10-06 11:11:00) [3]
if (SameObj is TDataSet) and (SameObj.ClassType <> TDataSet) then
| |
