[ART]

Код:

 TMyClass = class
  public
    constructor Create;
    destructor Destroy; override;
 end;

destructor TMyClass.Destroy;
begin
 Showmessage(Integer(@Self));
 Inherited Destroy;
end;

Код:

 var
  Obj: TMyClass;
 begin
  Obj := TMyClass.Create;
  Showmessage(Integer(@Obj));
  Obj.Free;
 end;

Получаю разные значения @Self и @Obj, а мне нужно, чтобы в методе Destroy узнать @Obj. Как это сделать? Почитал тут http://stackoverflow.com/questions/3...-pointer-usage , но ничего не понял.

[poli-smen]

Сообщение от ART

Код:

 TMyClass = class
  public
    constructor Create;
    destructor Destroy; override;
 end;

destructor TMyClass.Destroy;
begin
 Showmessage(Integer(@Self));
 Inherited Destroy;
end;

Код:

 var
  Obj: TMyClass;
 begin
  Obj := TMyClass.Create;
  Showmessage(Integer(@Obj));
  Obj.Free;
 end;

Получаю разные значения @Self и @Obj, а мне нужно, чтобы в методе Destroy узнать @Obj. Как это сделать? Почитал тут http://stackoverflow.com/questions/3...-pointer-usage , но ничего не понял.

Self - это и есть адрес объекта. Т.е. получать нужно так:

Код:

ShowMessage(IntToStr(Integer(Self))); // В первом случае

ShowMessage(IntToStr(Integer(Obj))); // Во втором случае

Ты же вместо этого пытаешься получить адрес "переменной" Self в первом случае и адрес переменной Obj во втором - конечно же ты будешь получать разные значения - это же разные переменные и находятся они в разных местах.

[M.A.D.M.A.N.]

[asm]
lea eax, obj
mov eax, [eax]
[/asm]

[poli-smen]

Сообщение от M.A.D.M.A.N.

[asm]
lea eax, obj
mov eax, [eax]
[/asm]

Ну это тоже самое что и я написал, только на ассемблере

p.s. Ещё одно замечание: На Win64 тип Integer остался 32-битным, а Pointer стал 64-битным. Поэтому под Win64 нельзя преобразовывать указатели к типу Integer.

[ART]

Так есть ли возможность мне в destroy узнать именно @Obj ?

[poli-smen]

Сообщение от ART

Так есть ли возможность мне в destroy узнать именно @Obj ?

Obj - это локальная переменная. После выхода из той (второй) процедуры эта переменная больше не существует. Как же ты узнаешь её адрес в другой процедуре?

[Bargest]

Сообщение от ART

Так есть ли возможность мне в destroy узнать именно @Obj ?

Образно говоря, вызов деструктора выглядит так:

Код:

var object: pointer;
...
Destroy(object);
; -------------------
mov ecx, [object]   
push ecx                ; пусть будет stdcall, в данном случае не важно
call Destroy

При этом конструкция @Obj выглядит как

Код:

mov ecx, obj

То есть в деструктор мы передаем значение, выдранное из памяти, а @Obj - это просто адрес.
Аналогия: в первом случае мы взяли книгу с полки и отнесли ее другу. Он никак не сможет узнать, где эта книга стояла ранее (без посторонней помощи).
Во втором случае мы сказали другу: "книга на такой-то полке, возьми сам".
В деструктор передается первым способом.

[ART]

Нашел выход: в конструкторе передаю адрес переменной в property класса, а из метода Destroy его потом оттуда считываю ))

[poli-smen]

Сообщение от ART

Нашел выход: в конструкторе передаю адрес переменной в property класса, а из метода Destroy его потом оттуда считываю ))

Если ты в конструкторе сохраняешь в свойстве адрес переменной таким образом "prop := @Obj", то это ошибка.
Нужно сохранять в свойстве не адрес этой переменной, а само значение этой переменной таким образом: "prop := Obj" (т.е. не указатель на указатель на объект, а просто указатель на объект)

[Bargest]

Сообщение от ART

Нашел выход: в конструкторе передаю адрес переменной в property класса, а из метода Destroy его потом оттуда считываю ))

Всего один вопрос: зачем?

[ART]

Сообщение от poli-smen

Если ты в конструкторе сохраняешь в свойстве адрес переменной таким образом "prop := @Obj", то это ошибка.
Нужно сохранять в свойстве не адрес этой переменной, а само значение этой переменной таким образом: "prop := Obj" (т.е. не указатель на указатель на объект, а просто указатель на объект)

Спасибо, то что надо.