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

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

← →
Николай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;

---

← →
begin...end ©   (2005-08-29 11:09) [4]

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]

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

---

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

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



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