Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Сервис для компонентов



Вернуться к списку функций
 Определение наследника класса по имени (аналог IS)

 Прислал: Игорь Шевченко (Москва) ( 13 мая 2002 г. )
©  Игорь Шевченко
 Зависимости:
SysUtils

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Определение наследника класса по имени (аналог 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;


Вернуться к списку функций

Наверх ▲    

Неужели ты хочешь скачать варфейс макросы это просто!