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

Вниз

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

← →
Darvin ©   (2007-05-14 15:09) [0]

Как сравнить значения двух переменных процедурного типа?

type
 TMyProc = procedure (Param : Integer) of object;

var
 P1, P2 : TMyProc;

begin
 P1 := Proc1;
 P2 := Proc2;
 ...
 if P1 = P2 then   <<< как можно выяснить, одна ли процедура присвоена?
 ...
end;

---

← →
Плохиш ©   (2007-05-14 15:23) [1]

if @P1 = @P2 then

---

← →
Darvin ©   (2007-05-14 15:24) [2]

сенькс

---

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

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

Наверх

Память: 0.46 MB
Время: 0.128 c