Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Определение наследника класса по имени - аналог IS

Delphi , Компоненты и Классы , Классы

Определение наследника класса по имени - аналог IS

Автор: Игорь Шевченко
WEB-сайт: http://delphibase.endimus.com

{ **** 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.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Классы ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
21.01.2022 13:25:28/0.0010380744934082/0