Четверг, 28 Мар 2024, 19:26
Uchi.ucoz.ru
Меню сайта
Форма входа

Категории раздела
Высшая математика [11]
Экономическая социология [95]
Основы Менеджмента [64]
Бухгалтерский учёт [157]
Философия [163]
Мировая Экономика [603]
Бизнес планирование [29]
Финансирование и кредитование инвест [105]
Ценообразование [46]
Гражданское право [196]
Права Человека [173]
Основы Маркетинга [207]
Основы энергосбережения [55]
Информатика [0]
Экология и устойчивое развитие [0]
Физика для студентов [0]
Основы права [0]
Политология [0]
Не стандартные примеры на Delphi [169]
Примеры на Delphi7 [108]
Алгоритмы [94]
API [110]
Pascal [152]
Базы Данных [6]
Новости
Чего не хватает сайту?
500
Статистика
Зарегистрировано на сайте:
Всего: 51635


Онлайн всего: 3
Гостей: 3
Пользователей: 0
Яндекс.Метрика
Рейтинг@Mail.ru

Каталог статей


Главная » Статьи » Студентам » Pascal

Поиск класса
Могу ли я во время выполнения приложения определить, существует
ли класс с именем Tlog?
Используйте в модуле TLog RegisterClass( TLog ) или потомка TLog, затем
FindClass( 'TLog' ) или FindClass( 'TLogSubclass' ) для получения ссылки на
класс в вызывающем модуле, позволяя тем самым пользоваться объектами данного
класса. Вы также могли бы добавить классовый метод, возвращающий существующий
экземпляр или NIL, или который создает и возвращает новый экземпляр при
отсутствии текущего.

Самое необходимое, что нужно сделать, это создать абстрактный, чисто
виртуальный базовый класс TLog, и TLogSubclass, реально наполненный
функциональным назначением. Вызывающему оператору необходимо знать всего лишь о
TLog, а не о TLogSubclass, чтобы получить доступ к его методам и свойствам.

Тем не менее, я считаю не лучшим решением технологию поиска класса по его
имени. Вот что предлагаю я:

unit LogUnit ;

interface

type
TLog = class
public
constructor Create ;
procedure LogMessage( const Message : string
) ; virtual ; abstract ;
end ;
var Log : TLog
;

implementation

constructor TLog.Create
;
begin

Log := Self ;end ;

procedure TidyUp ;
far ;
begin

Log.Free ;end ;

initialization

AddExitProc( TidyUp ) ;end.
Категория: Pascal | Добавил: Lerka (22 Ноя 2012)
Просмотров: 548 | Рейтинг: 1.0/ 5 Оштрафовать | Жаловаться на материал
Похожие материалы
Всего комментариев: 0

Для блога (HTML)


Для форума (BB-Code)


Прямая ссылка

Профиль
Четверг
28 Мар 2024
19:26


Вы из группы: Гости
Вы уже дней на сайте
У вас: непрочитанных сообщений
Добавить статью
Прочитать сообщения
Регистрация
Вход
Улучшенный поиск
Поиск по сайту Поиск по всему интернету
Наши партнеры
Интересное
Популярное статьи
Портфолио ученика начальной школы
УХОД ЗА ВОЛОСАМИ ОЧЕНЬ ПРОСТ — ХОЧУ Я ЭТИМ ПОДЕЛИТ...
Диктанты 2 класс
Детство Л.Н. Толстого
Библиографический обзор литературы о музыке
Авторская программа элективного курса "Практи...
Контрольная работа по теме «Углеводороды»
Поиск
Главная страница
Используются технологии uCoz