VPF::Указатель на функцию - Форум программистов

Limonadni Joe

Дата 8.12.2003, 13:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 311
Регистрация: 1.11.2002
Где: Москва

Репутация: нет
Всего: 2

Есть ли такое понятие как указатель на функцию? Мне надо, чтобы в какой-нибудь переменной хранился указатель на функцию и чтобы эту функцию можно было вызывать через эту переменную? Как такое сделать?

Monty

Дата 8.12.2003, 14:24 (ссылка)

(нет голосов)

Загрузка ...

Advanced Lamer

Профиль
Группа: Участник Клуба
Сообщений: 3511
Регистрация: 3.4.2003
Где: Гваделупа

Репутация: нет
Всего: 27

Я делаю все через одно место

Код

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;

--------------------

...
О, вещая моя печаль,
О, тихая моя свобода
И неживого небосвода
Всегда смеющийся хрусталь!

Vit

Дата 8.12.2003, 18:02 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

@MyFinction - указатель на функцию MyFinction

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Петрович

Дата 9.12.2003, 18:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1000
Регистрация: 2.12.2003
Где: Москва

Репутация: 25
Всего: 55

Цитата(Vit @ 8.12.2003, 18:02)

@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;

--------------------

Все знать невозможно, но хочется

dm9

Дата 13.12.2003, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137

Дам ещё ссылочку на обсуждаемую ранее тему:
http://forum.vingrad.ru/index.php?act=ST&f...2&t=9527&hl=asm

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »