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

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

Передача функции как параметра процедуры [D7, WinXP]

Николай1 ©   (2005-08-29 10:59:00) 

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

---

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

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

---

begin...end   (2005-08-29 11:09:00) [2]

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.

---

Leonid Troyanovsky   (2005-08-29 11:06:00) [3]

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


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

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

--
Regards, LVT.

---

Плохиш   (2005-08-29 11:06:00) [4]

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

---

GLFox   (2005-08-29 11:04:00) [5]

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

---

Наверх