Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.18;
Скачать: 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 вся ветка

Текущий архив: 2005.09.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
3-1123491610
Rentgen
2005-08-08 13:00
2005.09.18
Как пробежаться по выделеным записям в Table?


14-1122692754
dr Tr0jan
2005-07-30 07:05
2005.09.18
Вопрос о сантехнике


1-1124786728
ищущий ответ
2005-08-23 12:45
2005.09.18
Куда пропадает кнопка?


2-1123913161
Гость22
2005-08-13 10:06
2005.09.18
Как, зная начальную дату и колличество месяцев, определить...


14-1124688619
Guest_03
2005-08-22 09:30
2005.09.18
Подключил мобильник и чуть не сжег БП !