Передача функции как параметра процедуры

← →
Николай1 (2005-08-29 10:59) [0]

Извение за вторжение. Может кто знает как можно передать функцию в процедуру И использовать её в этой процедуре
Заранее спасибо.

← →
GLFox © (2005-08-29 11:04) [1]

Через указатель (@MyFunction)

← →
Leonid Troyanovsky © (2005-08-29 11:06) [2]

> Николай1 (29.08.05 10:59)
> Извение за вторжение. Может кто знает как можно передать
> функцию в процедуру И использовать её в этой процедуре

Извиним, конечно. Мм.. мы духов уважаем.

Можно передать, использовать, как обычно.
Object Pascal Language Guide Procedural types

--
Regards, LVT.

← →
Плохиш © (2005-08-29 11:06) [3]

> Николай1 (29.08.05 10:59)
> Извение за вторжение.

Не извением.

> Может кто знает как можно передать функцию в процедуру И использовать её в этой процедуре

type
TMyFunc = function(In:byte): byte;

function AAA(In:byte): byte;
begin
...
end;
procedure BBB(Fnk: TMyFunc);
begin
Fnk(1);
end;

begin
BBB(AAA);
end;

type TFunc = function(A, B: Integer): Integer; function Func(A, B: Integer): Integer; begin Result := A + B end; procedure Proc(FuncParam: TFunc); begin ShowMessage(IntToStr(FuncParam(2, 3))) end; begin Proc(Func) end.

← →
Николай1 (2005-08-29 11:17) [5]

Всем спасибо мне это очень помогло

Передача функции как параметра процедуры Найти похожие ветки