[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 , но ничего не понял.