Объединенный Открытый Проект - Сайт для Настоящих Компьютерщиков

Объединенный Открытый Проект

Сайт для Настоящих Компьютерщиков

; Логин:
  Пароль:
Обычный
Безопасный
Запомнить пользователя



Зарегистрироваться
Забыли пароль?
 
 
 
Объединенный Открытый Проект »   Программирование »   Pascal/Delphi »   Объект из процедурной ссылки
RSS

Объект из процедурной ссылки

Взятие объекта из процедурной ссылки (function ():type of object)

Текущий рейтинг темы: Нет

<<Назад  Вперед>>Модераторы: Winnowing_Raven, wsxПечать
 
BasilAKANaiL
Новичок


Всего сообщений: 1
Рейтинг пользователя: 0





Дата регистрации на форуме:
20 нояб. 2006
Доброе время суток, г-да. девелоперы.
Возникла такая проблема:
Я хочу сделать контролируемую делегацию событий. Объясню кратким примером.

//--------------------------------------------------------------------------------------------------
unit UnSession
...
type

TEventSession = function (aPack:TPackUnit):boolean of object;

IDelegator=interface (IInterface)
['GUID']
...
procedure SetDelegate(const aName:string;Value:TEventSession);
end;

TSession=class(TInterfacedObject, IDelegator)
...
procedure SetDelegate(const aName:string;Value:TEventSession);
end;

implementation

procedure SetDelegate(const aName:string;Value:TEventSession);
begin
// из значения Value:TEventSession нужно выяснить от какого объекта этот делегат
end;

//--------------------------------------------------------------------------------------------------

Можно добавить еще параметр со ссылкой на объект, но я думаю это будет излишний код.

---
Кто владеет информацией, тот владеет миром.
У.С. Черчилль
4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
4X_Pro
Откуда: Москва
Всего сообщений: 2994
Рейтинг пользователя: 79





Дата регистрации на форуме:
29 сен. 2001
По-моему, максимум, что тут можно выяснить — это класс объекта (так как Value, по сути, это указатель на процедуру/метод, и сведений о самом объекте он содержать не может по определению), но никак не конкретный объект.
Так что скорее всего, ссылку на объект добавлять придется.

---
Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
<<Назад  Вперед>>Модераторы: Winnowing_Raven, wsxПечать
Объединенный Открытый Проект »   Программирование »   Pascal/Delphi »   Объект из процедурной ссылки
RSS
Быстрый переход в раздел:


Время выполнения скрипта: 0.0248. Количество выполненных запросов: 19, время выполнения запросов 0.0160