передача процедуры с параметром как параметр

← →
dm37 (2005-07-13 08:14) [0]

Чтобы передать процедуру как параметр я делаю так:
type
TCheckErrorProc = procedure;

procedure CheckError(name: TCheckErrorProc);
begin
if not Error then name;
end;
вызов
CheckError(test());

а как передать процедуру с параметром?
type
TCheckErrorProc = procedure(value: integer);

← →
Digitman © (2005-07-13 08:22) [1]

точно так же

← →
MBo © (2005-07-13 08:23) [2]

А что вызывает затруднения?

> а как передать процедуру с параметром?

Уточню [1]. В качестве параметра-процедуры в действительности передается ее адрес, поэтому, если хочется "передать процедуру с параметром", надо передавать процедуру отдельно (т.е. ее адрес), а параметр отдельно, если имеется в виду "с параметром", что параметр тоже надо передать.

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