Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

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

 
RWolf ©   (2010-04-22 15:41) [0]

type
 TProc=procedure of object;

 TForm1 = class(TForm)
   Button1: TButton;
   procedure FormCreate(Sender: TObject);
   procedure Button1Click(Sender: TObject);
 private
   procedure p;
   procedure p1;
 end;

var
 a,b:TProc;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
 a:=p;
 b:=p1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if a=b then                  //!!!
   ShowMessage("eq");
end;


Строчка, помеченная восклицательными знаками, не компилируется.
Предположим, что правильный синтаксис - if @a=@b then ...
Смотрим, во что компилируется эта строчка:
Unit1.pas.49: if @a=@b then
004529B0 A1005C4500       mov eax,[a]
004529B5 3B05085C4500     cmp eax,[b]
004529BB 750A             jnz +$0a
Unit1.pas.50: ShowMessage("eq");
004529BD B8D0294500       mov eax,$004529d0
004529C2 E86150FDFF       call ShowMessage
Unit1.pas.51: end;
004529C7 C3               ret

Как видим, сравниваются только 4 младших байта процедурной переменной.
Вопрос: это баг Delphi 7, или есть другой синтаксис сравнения переменных процедурного типа, более правильный?


 
turbouser ©   (2010-04-22 15:45) [1]


> RWolf ©   (22.04.10 15:41)  

А что, по твоему, представляют из себя
> переменных процедурного типа

?


 
RWolf ©   (2010-04-22 15:47) [2]

> turbouser

В данном случае - 8 байт: адрес метода и адрес объекта.


 
Ega23 ©   (2010-04-22 15:57) [3]

if (TMethod(...).Code =  TMethod(...).Code) and (TMethod(...).Data = TMethod(...).Data) then ...


 
RWolf ©   (2010-04-22 16:00) [4]

> Ega23
ясно :)



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

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

Наверх




Память: 0.47 MB
Время: 0.084 c
6-1221106295
Boooze
2008-09-11 08:11
2010.08.27
psock file not found


2-1268752361
Lionelles
2010-03-16 18:12
2010.08.27
Вычисления в БД на Delphi


15-1268762686
TStas
2010-03-16 21:04
2010.08.27
Как заставить подпрограмму считать быстрее


15-1268371530
vajo
2010-03-12 08:25
2010.08.27
Непонятки с сетью на ноуте


2-1269262046
Константин
2010-03-22 15:47
2010.08.27
Не уничтожается объект