Определение наследника класса по имени - аналог ISDelphi , Компоненты и Классы , КлассыОпределение наследника класса по имени - аналог IS
Автор: Игорь Шевченко { **** UBPFD *********** by delphibase.endimus.com **** >> Определение наследника класса по имени (аналог IS) Зависимости: SysUtils Автор: Игорь Шевченко, whitefranz@hotmail.com, Москва Copyright: Игорь Шевченко Дата: 13 мая 2002 г. ***************************************************** } { Возвращает true, если класс порожден от класса с именем Name } { Код не требует привязки к RTTI определяемого класса (не надо unit, где описан класс в uses указывать :-) } function HSClassBasedOn(Value: TClass; const Name: string): Boolean; begin Result := false; while Value <> nil do begin if SameText(Value.ClassName, Name) then begin Result := true; Exit; end; Value := Value.ClassParent; end; end; Статья Определение наследника класса по имени - аналог IS раздела Компоненты и Классы Классы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |