Процедура TypeOf

Модуль SYSTEM

Возвращает указатель на таблицу виртуальных методов объекта.

Объявление:

Procedure TypeOf(Param1 : ObjectType) : Pointer

Режим:

Windows,  Protected,  Real

Замечание:

Параметр Param1 является или идентификатором объектного типа или образцом объектного типа.

Может применяться только к объектным типам, которые имеют VMT, вызов для других типов обьектов приводит к ошибке.

Пример:

{Typeof.PAS}
 
 { Пример программы для функции TypeOf }
 
 Procedure GraphicalObject.Move;
 Begin
  { В зависимости от типа полученного значения, }
  If TypeOf(Self) = TypeOf(ScrWindow) Then
  { выполняем специальное действие, если перемещаем окно, или }
  Else
  { если нет, то другое действие }
 End;