Указатель на процедуру

[aleks.halk]

подскажите кто знает
как получить указатель на процедуру?!

[Вадим Мошев]

Что значит получить?

Можно самому сделать:

type pr = procedure p(x: <Какой-то тип>)
       Pproc = ^pr

Вроде как-то так

[aleks.halk]

спрошу по другому
мне нужен адресс реальной процедуры

TtdVisitProc = procedure (aData : pointer;
aExtraData : pointer;
var aStopVisits : boolean);

function Traverse(aMode : TtdTraversalMode;
aAction : TtdVisitProc;
aExtraData : pointer;
aUseRecursion : boolean) : PtdBinTreeNode;

т.е. при вызове я должен передать адрес процедуры 2м параметром
или я что-то не так понимаю

[Greek9000]

...
type
  TMyProcType = procedure(AValue integer); // Объявили процедурный тип

...
// Процедура на которую надо получить ссылку
procedure MyProc(AValue integer);
begin
  ShowMessage(IntToStr(AValue));
end;

...
// вызов процедуры по ссылке
procedure Test;
var
  prcPtr: TMyProcType;
begin
  prcPtr := MyProc; // так
  //prcPtr := @MyProc; // или так
  //prcPtr := ^MyProc; // или так - до сих пор путаю ...
  prcPtr(1000);
end;

Как-то так. Точнее сказать не могу - дельфи перестали почему-то запускаться...
если надо получить ссылку на метод класса, то в обявление типа надо добавить of object:

type
  TMyProcType = procedure(AValue integer) of object;

[aleks.halk]

//prcPtr := @MyProc; // или так
//prcPtr := ^MyProc; // или так - до сих пор путаю ...


и так и так не работает

[aleks.halk]

это конечно плохой, но все же выход из ситуации - создал DLL и использовал GetProcAddress

[GunSmoker]

Код покажи. Есть мнение, что ты процедуру с методом перепутал.

[evg_m]

Сообщение от aleks.halk

//prcPtr := @MyProc; // или так
//prcPtr := ^MyProc; // или так - до сих пор путаю ...


и так и так не работает

там был еще один способ. Он тоже не работает?
prcPtr := MyProc; // так
//prcPtr := @MyProc; // или так
//prcPtr := ^MyProc; // или так - до сих пор путаю ...