Вызов функции

← →
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 можно предать, а функию нет. Тем более что результат работы надо получить.

> Fast (11.11.03 10:40) [5]

F1

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

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

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

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