ActiveX в Delphi
Типы времени выполнения (RTTI)
Информация о типе во время выполнения (Runtime Type Information, RTTI) - это способность среды Delphi предоставлять приложению информацию об объектах во время выполнения приложения. Так как все объекты Delphi являются потомками класса TObject, то все они содержат указатель на информацию о типе, а также методы для работы с этой информацией. В приведенной ниже табл. 2.8 приведены некоторые из этих методов.
Таблица 2.8. Методы для работы с RTTI
|
Название метода |
Тип возвращаемого результата |
Результат |
||
|
Classlnfo |
Pointer |
Указатель на информацию о типе объекта |
||
|
ClassName |
String |
Имя класса объекта |
||
|
ClassParent |
Tclass |
Тип класса-предка объекта |
||
|
ClassType |
Tclass |
Тип объекта |
||
|
InheritsFrom |
Boolean |
Является ли объект потомком данного класса |
||
|
InstanceSize |
Word |
Размер объекта, как экземпляра класса, в байтах |
||
Для работы с информацией о типе времени исполнения в Delphi имеется два основных оператора: is и as. Первый применяется для сравнения типов, второй - для преобразования типов времени выполнения.
Информация о типе времени выполнения используется в Delphi в основном для определения, с объектом какого типа работает сейчас приложение. Рассмотрим пример использования информации RTTI. Разместим на новой форме несколько различных компонентов. Предположим, что в какой-то момент во время работы приложения нам необходимо отключить все кнопки, расположенные на форме. Для реализации этого можно пройтись по всем компонентам формы, узнать их тип, и если это тип TButton, то задать свойству Enabled данного компонента значение false. Код для этого примера приведен на листинге 2.5.
Листинг 2.5
for i:=0 to ComponentCount-1 do
if Components[i] is TButton then
TButton(Components[i]).Enabled:=false;
В данном примере мы используем оператор is для определения типа компонента. Теперь рассмотрим пример использования оператора as. Код, представленный на листинге 2.6, отключает все компоненты, которые произошли от одного предка TControi.
Листинг 2.6
for i:=0 to ComponentCount-1 do
(Sender as TControi).Enabled:=false;
