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

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

← →
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]

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

---

← →
evvcom ©   (2005-07-13 08:26) [3]

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

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

---

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

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



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