Функции

← →
AntonSh (2004-10-01 17:26) [0]

У меня есть функция и процедура. Подскажите как мне в функцию передать в качестве параметра процедуру. Спасибо.

← →
Sandman25 © (2004-10-01 17:30) [1]

type
TFunctionParam = function(StringParam: String): Integer;
...
function Func1(AString: String): Integer;
...
procedure MyProc(FunctionParam: TFunctionParam);
...
MyProc(Func1);

← →
МЯУ (2004-10-01 17:36) [2]

Sandman25 © (01.10.04 17:30) [1]
набарот, процедуру в функцию, а не функцию в процедуру :)

type
tprocedure = procedure(...);
var
function fcn(prc: tprocedure): ...;

← →
Sandman25 © (2004-10-01 17:37) [3]

[2] МЯУ (01.10.04 17:36)

Согласен. Невнимательно прочитал.

← →
AntonSh (2004-10-01 17:41) [4]

Спасибо всё работает.

← →
Zeon (2004-10-02 01:50) [5]

Только когда будеш вызывать свою функцию, поставь перед именем процедуры(параметра) знак @ Тогда перед её вызовом в стек будет заноситься только адрес этой процедуры, а не вся процедура целиком. А это очень значительное экономие времени работы плюс дополнительная защита от переполнения стека.
fcn(@prc);

Zeon (02.10.04 01:50) [5]

> Тогда перед её вызовом в стек будет заноситься только адрес
> этой процедуры, а не вся процедура целиком. А это очень
> значительное экономие времени работы плюс дополнительная
> защита от переполнения стека.

Чушь.

Функции Найти похожие ветки