|
Платные хостинги
Раскрутка сайта
Книги по программированию
Указатель на функцию
- Есть ли такое понятие как указатель на функцию? Мне надо, чтобы в какой-нибудь переменной хранился указатель на функцию и чтобы эту функцию можно было вызывать через эту переменную? Как такое сделать?
- Я делаю все через одно место Код var teZt_offset: integer; teSt_offset: integer;procedure teZt;begin halt;end;procedure teSt(Time: integer);begin Sleep(Time);end;procedure TForm1.Button1Click(Sender: TObject);begin asm mov teZt_offset, offset teZt; mov teSt_offset, offset teSt; end;end;procedure TForm1.Button2Click(Sender: TObject);begin asm call teZt_offset; end;end;procedure TForm1.Button2Click(Sender: TObject);begin asm push 1000; call teSt_offset; end;end;highlightSyntax('delphilNThjN','delphi');
- @MyFinction - указатель на функцию MyFinction
- Позволю себе немного расширить твой ответ, до примера Monty (пардон, но у него и правда через одно место )Код type THaltProc = procedure; TSleepProc = procedure (Time: integer);var HaltProc :THaltProc; SleepProc :TSleepProc;procedure teZt;begin halt;end;procedure teSt(Time: integer);begin Sleep(Time);end;procedure TForm1.Button1Click(Sender: TObject);begin HaltProc := teZt; SleepProc := teSt;end;procedure TForm1.Button2Click(Sender: TObject);begin HaltProc;end;procedure TForm1.Button3Click(Sender: TObject);begin SleepProc(100);end;highlightSyntax('delphiYTNjNG','delphi');
- Дам ещё ссылочку на обсуждаемую ранее тему:http://forum.vingrad.ru/index.php?act=ST&f...2&t=9527&hl=asm
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
