Запуск процедуры через указатель.

[Alex Cones]

Запись:

TRec001 = Record
   SomeBit : Byte;
   Flag : Boolean;
   Proc : Pointer;
End;

Rec: TRec001;

Procedure Proca01;
 Begin
  Bla-bla-bla
 End;

Rec.Proc := @Proca01;

Как теперь запустить процедуру Proca01 через запись?

P.S. Способ почерпнул через АПИ:

  With WindowClass Do
  Begin
   Style := CS_PARENTDC;
   hIcon := LoadIcon(ApplHandle, MAKEINTRESOURCE('MAINICON'));
   lpfnWndProc := @WinProc;
   hInstance := ApplHandle;
   hbrBackground := COLOR_BTNFACE + 1;
   lpszClassName := 'TAliusForm';
   hCursor := LoadCursor(0, IDC_ARROW);
  End;
 End;

P.P.S. Можно конечно сделать по-быдлокодерски:

Rec[N]

Case N of
1: Proca01;
2: Proca02;
3: Proca03;
End;

Но не хотелось бы терять гибкость.

[Stilet]

Легкий примерчикс, навевающий мудрые мысли :

type TProc=procedure;
 procedure p;
 begin
   write('erewr');
 end;
var pp:pointer;tpp:TProc;
begin
 pp:=@p;
 tpp:=p;
 tpp;
 Readln;;
end.

Пойдет такое антиб...кодерство?

P.S. Кстати ассемблерный CALL еще не отменял никто.

[Alex Cones]

P.S. Кстати ассемблерный CALL еще не отменял никто.

Эм... Продемонстрируйте, силь ву пле.

[Stilet]

Битте, Дритте:

type TProc=procedure;
 procedure p;
 begin
   write('erewr');
 end;
var pp:pointer;tpp:TProc;
begin
 pp:=@p;
 asm
   call [pp]
 end;
 Readln;;
end.

А если с параметрами процедура - это уже отдельный песня.
Там надо четко знать какие параметры.

[Alex Cones]

Мерси. Не, процедура без параметров.