Обратиться к самому объекту (with ... do)

[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;

[Arigato]

Если не нравится ссылка, то можно даже так:

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

...

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

function TMyClass.GetThis: TMyClass;
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;

[macomics]

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

Компилятор никогда не знал, не знает и не хочет никогда знать никаких имен!
Он работает только с регистрами процессора и их содержимым.
Привожу скришот тестовой программы с окном CPU и с пояснениями.

Вот только вы путаете понятия компилятора и бинарного (машинного) кода. Это процессору надо подставить конкретный указатель. А компилятор в случае конструкции with .. do как раз работает на макроуровне и при ее обработке пытается за вас закончить код, подставляя имена объектов перечисленных в .. к строчкам из блока begin .. end; в этой конструкции. Когда все имена объектов подобраны строчки подлежат ассемблированию, из-за чего и появляется тот самый esi - ссылка.

С самим регистром esi у вас не связано ни каких свойств/методов/полей/функций, чтобы можно было по ссылке подобрать и закончить текст программы.

[northener]

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

Если не нравится ссылка, то можно даже так:

Чёрт! И как я сам до этого не додумался? Наверно потому, сто ООП я знаю гораздо хуже Паскаля и ассемблера.
Но в таком случае ответ на вопрос ТС:

  TMyClass = class
    private
      function GetThis: TMyClass;
    public
      property This: TMyClass read GetThis;
  end;

...

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TMyClass.Create do begin
    SomeProcedure(This);
  end;
end;

Сознательно убрал из примера лишние поля класса оставив только чистый вариант. Дальше каждый сам сможет что-то туда добавить.

[northener]

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

Вот только вы путаете понятия компилятора и бинарного (машинного) кода.

Нет. Ничего такого я не путаю. Первые сведения о принципах работы трансляторов я получил ещё в 1980 году на последнем курсе ВУЗа. С тех пор имел много практики с разными компиляторами.
А пояснения к моим словам вы можете увидеть в файле Project.map, где всем символическим именам ставятся в соответствия адреса. (Ясен пень относительные). И с этими адресами транслятор дальше работает. А потом на этапе сборки линкер увязывает эти адреса в общее адресное пространство.

[macomics]

Только чтобы найти по имени метода объект ему надо выполнить поиск на уровне исходных текстов, а не адресов. Адреса появятся после того как все имена будут дополнены.

[northener]

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

Только чтобы найти по имени метода объект ему надо выполнить поиск на уровне исходных текстов

А ему ничего не нужно искать в исходных текстах! Как только символическое имя встречается в тексте, так оно сразу включается в таблицу соответствия. Именно эту таблицу вы и можете увидеть в map-файле.

[macomics]

Если в конструкции with .. do перечислено более одного объекта, или конструкции вложенные, тогда перед компилятором возникает задача определения по имени метода ссылки на объект. Сама ссылка на объект (адрес) появляется только после того как будет определено соответствие между множеством всех объектов и множеством всех методов в этих объектах. После того как определены такие соответствия эти вызовы методов превращаются в адреса из таблицы в map файле. Но без имени метода нельзя понять к какому объекту из множества вы обращаетесь. Хотя в вашей логики во множестве объектов всегда один элемент.

[DIONISKA]

К ответу northener можно ещё добавить что можно задействовать классхэлперы если у вас более-менее современная IDE (Sydney и старше). Очень недооцененная вещь кстати.

//...

  btnhlpr = class helper for TButton
  private
    function getobject: TButton;
  public
    property this:TButton read getobject;
  end;

//...

{ btnhlpr }
function btnhlpr.getobject: TButton;
begin
  Result:=Self;
end;

//...

procedure someprocedure(value:TButton);
begin
  ShowMessage(value.Caption);
end;

//...

  with TButton.Create(self) do
   begin
     Left:=10;
     Top:=10;
     Caption:='test1';
     OnClick:=nil;
     ShowMessage(this.Caption);
   end;

[northener]

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

Если в конструкции with .. do перечислено более одного объекта, или конструкции вложенные, тогда перед компилятором возникает задача определения по имени метода ссылки на объект. Сама ссылка на объект (адрес) появляется только после того как будет определено соответствие между множеством всех объектов и множеством всех методов в этих объектах. После того как определены такие соответствия эти вызовы методов превращаются в адреса из таблицы в map файле. Но без имени метода нельзя понять к какому объекту из множества вы обращаетесь. Хотя в вашей логики во множестве объектов всегда один элемент.

А тут уже работают правила перечисления/вложения.
Да если в конструкции with .. do перечислено более одного объекта, то способ Arigato не справится. Всегда будет браться значение ссылки одного и того же объекта. Первого или последнего не могу сходу сообразить.
Но со вложенными with .. do проблем не будет.