Скачать: CL | DM;

Вызов функции   Найти похожие ветки 

← →
Fast   (2003-11-11 10:30) [0]

Подскажите пожалуйста как решить проблему:
Пусть у меня есть N функции которые возврацают одинковый тип переменной, но перед и поcле выполнения любой из них надо соверiать некие действия.
Было бы очень удобно создать некую процедуру и передовать в нее указатель на одну из этих функций чтобы она выполняла те самые однотипные дествия и совершала вызов процедуры.

Т.е. вопрос сводиться к тому как вызвать процедуру имея на нее указатель.

Надеюсь не сильно запутал.

---

← →
Плохиш_   (2003-11-11 10:35) [1]

А что передача процедуре в качестве параметра не влюбой книжке по делфи описана.

---

← →
MBo ©   (2003-11-11 10:36) [2]

F1 по
Procedural types in statements and expressions

---

← →
Юрий Федоров ©   (2003-11-11 10:36) [3]

type
TMyProcedure = procedure(N: Integer);

procedure CallMyProc(Proc: TMyProcedure; N: Integer);
begin
<do something>
Proc(N);
<do something>
end;

var P : TMyProcedure;

P:=@Procedure1;
CallMyProc(P, 1);
P:=@Procedure2;
CallMyProc(P, 1);

---

← →
Романов Р.В. ©   (2003-11-11 10:38) [4]

F1 - procedural types

---

← →
Fast   (2003-11-11 10:40) [5]

Да процедуру через TProcedure можно предать, а функию нет. Тем более что результат работы надо получить.

---

← →
Романов Р.В. ©   (2003-11-11 10:42) [6]

> Fast (11.11.03 10:40) [5]


F1

---

← →
Плохиш_   (2003-11-11 10:43) [7]

>Fast (11.11.03 10:40) [5]

Ты вообще заглядывал в Романов Р.В. © (11.11.03 10:38) [4]

---

← →
Fast   (2003-11-11 10:44) [8]

Усе простите, разглядел.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c