Указатели. Процедурные типы.

[iN0k]

Столкнулся с различием моего представления о мире и текущим положением дел.

вроде как раньше можно было

Код: Выделить всё

..
m:TNotifyEvent;
p:pointer;
..
m:=Button1.OnClick;
p:=pointer(m); //< но вроде как и приведения типа не надо было
..


сейчас так не работает, и приходится делать

Код: Выделить всё

p:=pointer((@m)^);


оно работает, но взятие адреса переменной чтобы получить её значение ... как-то на мой взгляд перебор

как вернуть обратно?

[Vapaamies]

Только указатели на простые процедуры являются одинарными указателями. Указатель на метод -- запись с полями указателя на код метода и экземпляр объекта. В Delphi в TypInfo описан тип TMethod -- это как раз он.

[iN0k]

тоесть теперь

Код: Выделить всё

procedure tMyClass.A;
begin
...
end;
...
@MyClass.A //< возврящает ЗАПИСь а не указатель???


а с какого момента это произошло? а что вернет `Addr`?
читал оф. документацию, но там нет ничего внятного по этому поводу. где можно почитать?

[wavebvg]

возврящает ЗАПИСь а не указатель???

Возвращает указатель на запись в экземпляре класса.

[iN0k]

Возвращает указатель на запись в экземпляре класса.

ага ... спасибо

вроде разобрался.

[Vapaamies]

Код: Выделить всё

type
  TNotifyEvent = procedure(Sender: TObject) of object;
var
  OnClick: TNotifyEvent; // <-- TMethod


[wavebvg]

Код: Выделить всё

type
  TNotifyEvent = procedure(Sender: TObject) of object;
var
  OnClick: TNotifyEvent; // <-- TMethod


Код: Выделить всё

type
  TNotifyEvent = procedure(Sender: TObject) of object;
var
  OnClick: TNotifyEvent; // <-- PMethod


[kazalex]

OnClick: TNotifyEvent; // <-- PMethod

Садись. Два.

[wavebvg]

Садись. Два.

Вам бы свои тетрадки проверять

ЗЫ. Да, меня переклинило

[Cheb]

Почемуй-то мне всегда казалось, что метод - это обычная функция/процедура с одним скрытым параметром в начале?
Т.е.

Код: Выделить всё

TFoo = class
  procedure Hic(i: integer);
end;

эквивалентно

Код: Выделить всё

procedure Hic(Self: TFoo; i: integer);

Или как?

[Дож]

Почемуй-то мне всегда казалось, что метод - это обычная функция/процедура с одним скрытым параметром в начале?

Это утверждение верно, а вот ссылка на метод -- это не то же самое, что ссылка на эквивалентную ему процедуру.

Код: Выделить всё

procedure Hic(Self: TFoo; i: integer);

@Hic -- ссылка на процедуру с двумя аргументами

(Self, @Hic) -- ссылка на метод, задающая функцию с одним аргументом


[stanilar]

Почемуй-то мне всегда казалось, что метод - это обычная функция/процедура с одним скрытым параметром в начале?

Вот именно что скрытым. Поэтому и нужно использовать TMethod.