Сервер поддерживается кафедрой информатики и вычислительной техники ГрГУ тел. +375-(0)152-445-101 E-mail : kadan@grsu.grodno.by

Доступ к RTTI класса вне методов этого класса можно получить, описав соответствующий указатель, который называется указателем на класс, или указателем на объектный тип (class reference). Описывается он при помощи зарезервированных слов class of. Например, указатель на класс TObject описан в модуле SYSUTILS и называется TClass:

type
══TObject = class;
══TClass = class of TObject;

Аналогичные указатели уже описаны и для других важных классов. Вы можете использовать в своей программе TComponentClass, TControlClass и т. п.

Указатели на классы тоже подчиняются правилам приведения объектных типов. Указатель на класс-предок может ссылаться и на любые дочерние классы; обратное невозможно:

type
══TFirst = class
══end;
══TSecond = class(TFirst)
══end;
══TFirstClass = class of TFirst;
══TSecondClass = class of TSecond;
var
══AFirst: TFirstClass;
══ASecond: TSecondClass;
begin
══AFirst := TSecond; {допустимо}
══ASecond := TFirst; {недопустимо}
end.

Для комментария : kadan@grsu.grodno.by