Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.139 c
1-1175846980
Bless
2007-04-06 12:09
2007.06.03
зачем нужно TInterfacedObject(Result).FRefCount := 1 ?


5-1155359824
Chinbeg
2006-08-12 09:17
2007.06.03
Переопределение события


15-1178819495
Knight
2007-05-10 21:51
2007.06.03
Пенсия и работа у частника&amp;#133


2-1178909016
ММК
2007-05-11 22:43
2007.06.03
Запуск


2-1179124034
Люха
2007-05-14 10:27
2007.06.03
Выключение компа