{ **** 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 <> nildobeginif SameText(Value.ClassName, Name) thenbegin
Result := true;
Exit;
end;
Value := Value.ClassParent;
end;
end;