Скачать: 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 вся ветка

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



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