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

← →
BasilAKANaiL © (2006-11-20 12:49) [0]

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

//--------------------------------------------------------------------------------------------------
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;

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

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

← →
icWasya © (2006-11-20 12:53) [1]

Object:=TObject(TMethod(Value).Data);

Респект Уважаемый. Работает как надо.

Объект из процедурной ссылки Найти похожие ветки