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

[Kronos913]

Если применяется вот такая вот конструкция

with Tbutton.create do begin

То как можно обратиться к самому объекту? Если у него какой-то нет заданной переменной. Например, чтобы он выступил как параметр для какой-то процедуры

[northener]

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

То как можно обратиться к самому объекту?

Никак. Сам уже сто лет возмущаюсь что нет такой возможности.

[macomics]

А лень переменную обозначить? Хотя согласен - так было бы удобнее. Как вариант можно создавать объект контейнер, но это еще длиннее, чем задать переменную и обращаться через нее.

[northener]

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

Хотя согласен - так было бы удобнее.

А главное в чём причина отсутствия такой возможности? Ведь компилятор прекрасно знает адрес вновь созданного таким образом объекта?

[macomics]

Сам не понимаю. Зато в каждом методе класса доступен абсолютно бесполезный Self как ссылка на этот самый объект. Почему так нельзя было сделать с with .. do

[northener]

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

Зато в каждом методе класса доступен абсолютно бесполезный Self как ссылка на этот самый объект

Вот так раз! И почему же он бесполезный???
Как раз очень полезный и даже необходимый в ряде случаев.

[macomics]

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

Как раз очень полезный и даже необходимый в ряде случаев.

Вот поэтому и бесполезный. Применяется только в ряде случаев и во всех этих случаях может быть заменен на прямую ссылку. Хотя согласен, что полезен - иначе бы пришлось создавать дополнительные конструкции для подобного обращения, а это громоздко.

[Arigato]

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

Зато в каждом методе класса доступен абсолютно бесполезный Self как ссылка на этот самый объект. Почему так нельзя было сделать с with .. do

А если бы так сделали, то внутри with на чтобы ссылался Self?

[macomics]

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

А если бы так сделали, то внутри with на чтобы ссылался Self?

А зачем именно Self, слов что-ли мало. Как насчет слова This, Object или Local. Так Self будет экземпляром класса, а для специального слова можно даже предусмотреть уникальный механизм, который позволял бы ссылаться на объект любой вложенности для with .. do. Хотя придумать что-то компактное для такой адресации я вряд ли смогу сходу. Разве что

begin
  with a.Create do
    with b.Create do
      with c^ as TRecord do
        with d do begin
          a_field := 0;
          d_field := 1;
          c_field := 2;
          d_field := 3;
          This.d_field := 4;
          _This.c_field := 5;
          __This.b_field := 6;
          ___This.a_field := 7;
        end;
end;

Но это не очень компактно и красиво с точки зрения синтаксиса Pascal

ADD: Поэтому конструкция with .. do при отсутствии такого компактного механизма теряет актуальность. И всегда можно сделать так

var
  va: a;
  vb: TbClass;
begin
  va := a.Create;
  vb := b.Create;
  with va do
    with vb do
      with c^ as TRecord do
        with d do begin
          a_field := 0;
          d_field := 1;
          c_field := 2;
          d_field := 3;
          d.d_field := 4;  { d уже является тем, что нам нужно - This лишнее слово }
          c^ as TRecord.c_field := 5; { с уже является тем, что нам нужно - This лишнее слово }
          vb.b_field := 6;
          va.a_field := 7;
        end;

ADD2: С другой стороны, если вы пишите свой класс, тогда можно для него предусмотреть метод с именем This возвращающий Self. Правда тогда нельзя будет во вложенных структурах определить к какому из методов объекта вы хотите обратиться для получения ссылки на класс.

[Arigato]

with добавляет путаницу. Кстати, чтобы не делать кучу вложенных блоков, можно в одном with сделать перечисление через запятую.