Можно ли из procedure of object получить ссылку на объект

← →
Bless © (2006-09-25 12:20) [0]

TProc = procedure of object; TMyClass= class(TObject) private FProc: TProc; public procedure SomeMethod; end;

procedure SomeMethod;
begin
if Assigned(FProc) then
<объект,чьим методом проинициализирован FProc>.FreeNotification;
end;

Что написать вместо выделенного жирным?

← →
Barloggg (2006-09-25 12:21) [1]

ну, Self можно использовать.

← →
Сергей М. © (2006-09-25 12:23) [2]

> объект,чьим методом проинициализирован FProc

Обычно приватные данные инициализируются самим объектом, использующим эти приватные данные.

← →
clickmaker © (2006-09-25 12:23) [3]

> из procedure of object получить ссылку на объект

эээ... а зачем?

← →
DrPass © (2006-09-25 12:24) [4]

> TMyClass= class(TObject)
> private
> FProc: TProc;
> public
> procedure SomeMethod;
> end;
>
> procedure SomeMethod;
> begin
> if Assigned(FProc) then
> <объект,чьим методом проинициализирован FProc>.FreeNotification;
>
> end;

...это даже не скомпилируется

← →
Barloggg (2006-09-25 12:26) [5]

скомпилируется.
и даже будет работать.
если конечно вместо procedure SomeMethod; сделать procedure TMyClass.SomeMethod;

а вот если при создании объекта не присвоить FProc хоть чему-нибудь, пусть даже Nil то можно схлопотать AV.

← →
Barloggg (2006-09-25 12:28) [6]

эй... объект ЧЬИМ МЕТОДОМ???

хммм.... ну с объектами облом.
с классами... что-то кажется можно. классовый метод неявно прикрепляет ссылку на себя... блин, кажется ЧТО-ТО можно сделать. Это я к тому, что я неправильно понял вопрос и мои посты выше не читать.

← →
clickmaker © (2006-09-25 12:28) [7]

> а вот если при создании объекта не присвоить FProc хоть
> чему-нибудь, пусть даже Nil то можно схлопотать AV

члены класса инициализируются нулем.
Поэтому if Assigned достаточно

← →
Barloggg (2006-09-25 12:32) [8]

procedure SomeMethod(dummy:Pointer;Sender:TObject);

var t:SomeMethod;

t:=Button1.onClick;

(или TMyClass=class
fproc:TNotifyEvent;
end
var g:TmyClass;
t:=g.fproc;)
procedure SomeMethod(dummy:Pointer;Sender:TObject);
begin
dummy кажется и должен быть этой самой button1.
а может быть и нет...

в общем это тебе поможет вычленить обе ссылки, а там уж сам разберись кто есть кто.
end;

← →
Сергей М. © (2006-09-25 12:33) [9]

var
Obj: TObject;
..

Obj := TObject(TMethod(FProc).Data);
if Assigned(Obj) and (Obj is TComponent then
TComponent(Obj).FreeNotification(..);

← →
Bless © (2006-09-25 12:34) [10]

> Barloggg (25.09.06 12:21) [1]
>
> ну, Self можно использовать.

Нельзя. Внутри SomeMethod self - это объект класса TMyClass, а мне нужен объект, которому принадлежит процедура, на которую ссылается FProc.

Код в первом посте должен был пояснить чего я хочу, но он ошибочный.

TProc = procedure of object; TMyClass= class(TComponent) private FProc: TProc; public procedure SomeMethod; end; procedure TMyClass.SomeMethod; begin if Assigned(FProc) then //FProc где-то ранее был проинициализирован <объект,чьим методом проинициализирован FProc>.FreeNotification(self); end;

> clickmaker © (25.09.06 12:23) [3]
> > из procedure of object получить ссылку на объект
>
> эээ... а зачем?
>

Я хочу, чтобы компонент, на метод которого ссылается FProc, уведомлял о своем уничтожении объект TMyClass.

← →
Barloggg (2006-09-25 12:35) [11]

> Сергей М.
[9]

это правильно если нет варианов. и мы точно знаем какого типа должен быть объект.
а в общем случае нестабильно.

>>хммм.... ну с объектами облом.
с object`ом также как с class никакого облома

> [11] Barloggg (25.09.06 12:35)

Кто такие варианы? Почему нестабильно, что смущает? Код все что нужно проверяет, как раз для общего случая.

← →
Barloggg (2006-09-26 09:12) [15]

согласен. для данных условий все верно.
это просто я любитель наследовать все от бог знает каких предков...
вот меня этот freenotification и засмущал...
в этой же задачке объект гарантированно наследован от Tcomponent.

> [15] Barloggg (26.09.06 09:12)

Да наплевать, от чего объект унаследован. Запиши в TMethod(FProc).Data хоть результат рандомайза. Предложение
> if Assigned(Obj) and (Obj is TComponent) then
всё проверит, является ли этот объект компонентом. И только, если является, будет работать с ним, как с компонентом. Хотя, конечно, с рандомайзом, существует вероятность 1/2^32 ловли AV, если считать рандомайз равновероятной функцией :)

Можно ли из procedure of object получить ссылку на объект Найти похожие ветки