| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вызов фенции [D6]

Ptr ©   (2002-02-04 10:53:00) 

Подскажите, pls, как передать в качестве аргументы функции - другую функцию и затем передать на нее управление...

---

Ptr   (2002-02-04 12:12:00) [1]

Огромное тебе спасибо !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

---

Виктор Щербаков   (2002-02-04 12:09:00) [2]

---
procedure Proc2(Arg1, Arg2: Integer); stdcall;
begin
Windows.beep(100, 100);
end;

procedure Proc1(Addr: Pointer);
type TProc2 = procedure(Arg1, Arg2: Integer); stdcall;
var MyProc2: TProc2;
begin
MyProc2 := Addr;
MyProc2(100, 100); // собственно вызов
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Proc1(@Proc2);
end;
---

---

Ptr   (2002-02-04 12:05:00) [3]

А если Proc2 имеет свои аргументы? как ох объявить?

---

Ptr   (2002-02-04 11:37:00) [4]

Большое спасибо

---

Виктор Щербаков   (2002-02-04 11:01:00) [5]

---
procedure Proc2; stdcall;
begin
beep;
end;

procedure Proc1(Addr: Pointer);
type TProc2 = procedure; stdcall;
var MyProc2: TProc2;
begin
MyProc2 := Addr;
MyProc2; // собственно вызов
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Proc1(@Proc2);
end;
---

---

Наверх