Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Сен

Как получить ссылку на объект класса?

Posted by obzor under Delphi

Для своих классов можно просто добавить свойство Self (или любое иное имя), которое вернет ссылку на объект.

И как его добавить?

Arigato

Код:

type

  TMyClass = class
    private
      function GetThis: Pointer;
    public
      val: integer;
      constructor Create;
      property This: Pointer read GetThis;
  end;

...

constructor TMyClass.Create;
begin
  val := 0;
end;

function TMyClass.GetThis: Pointer;
begin
  Result := @Self;
end;   

procedure TForm1.Button1Click(Sender: TObject);
var
  tmp: ^TMyClass;
begin
  with TMyClass.Create do begin
    val := 10;
    tmp := This;
  end;
  ShowMessage(IntToStr(tmp^.val));
end;