Аксессор, использующий поле из объекта

[phomm]

Всем Доброго.

Есть потребность : объектов может быть много, но они все некоего базового типа (Tobjtype), которым инициализируются в конструкторе.

TObjType = class(TObject);
name: string;
end;

Tobj = class(TObject)
  private
    ObjType: TObjType;
    function GetName: String;
  public
    property Name: String read ObjType.Name; // ашыпка, насяльника
  end;

Дельфи7 ругает меня: Record, object or class type required
и вынуждает меня использовать

property Name: String read GetName;
//...impl
function TObj.GetName: String;
begin
  Result := ObjType.Name;
end;

Как несложно догадаться, полей там много, код некисло распух этими геттерами.
В то же время если сделать обжтайп рекордом – без вопросов всё работает (ну компилит, в рантайме бы ещё надо проверить), но мне-то ессно надо класс. (объектом, устаревшим типом, не пробовал, но и не хочется)
Менять область видимости - нет результата.

Внимание, вопрос, если дельфи в принципе ожидает, что я могу задействовать там объект класса (см. текст ошибки, в хелпнике по данному тексту другое дело описано), то почему не даёт сделать... ?

Гуглил, там всё нубо-ошибки, которые как раз кейсы описанные в хелпе..

Уверьте хоть меня, что я раб дельфей, и раз она велит не писать таких аксессоров, то и не рыпаться.

Но хочется таки элегантности

Ну, иль может кто вообще пнёт меня за построенное, и поделится мыслью по высокой архитектуре. (разве что про наследование не хотел бы слышать, ибо не нравится мне дублирование, да и пробовал, в данном проекте не пошло)

[Аватар]

Ну а просто раба дельфей не устраивает

    FObjType: TObjType;
    ...
    property ObjType: TObjType read FObjType;

[phomm]

Хочется пропертю отдельную, почти для каждого поля из обжтипа, на этом основная цель обжтипа и зиждется.

Про раба имелось ввиду в контектсе текущей проблемы )) так то вроде я сильнее её )

[veniside]

когда много отднотипных пропертей, иногда я делаю типа такого:

  TObj = class
  private
    ObjType: TObjType;
    //
    function GetStrProp(index: integer): String;
  public
    property Name: String index 0 read GetStrProp; // 
  end;


    function TObj.GetStrProp(index: integer): String;
    begin
      case (index) of

        0: result := ObjType.Name;

        else
          result := '';

      end;
    end;

один метод на все строковые свойства, меняется только индекс. Для целых и других типов нужен ещё метод.

[phomm]

Да, метод с индексами я знаю, но мне в данной задаче видится он малость костыльным.. нужен учет индексов..
Я думаю может вообще свойства все обернуть в списки, адресуемые енумами.. и уж написать геттер на енумах, но пока надеялся на сабж, просто может я чего не догоняю..
Прикол как раз в том, что дельфи сама говорит можно и сама же нельзя..

[veniside]

type
  TObjType = object
    name: string;
  end;

  Tobj = class(TObject)
  private
    ObjType: TObjType;
  public
    property Name: String read ObjType.Name;
  end;

ну вот такое компилируется. А слово class из сообщения об ошибке в XE2 уже убрали )

[phomm]

Да, я подозревал, что объекты будут работать, рекорды же работают...
но объекты я конечно использовать не собираюсь...
То что они убрали, это они молодцы, оперативно работают )

придётся придумывать что-то. либо мириться с вагонкой геттеров, а ведь теоретически могут и сеттеры потребоваться...
На стековерфлоу прочитал несколько кейсов по проблемам рекордов как пропертей, там были кой-какие смежные идеи, может чего накропаю по ним.

Мне кажется, что невозможность сего действа обусловлена именно размещением экземпляров классов в куче, в неизвестном на этапе компиляции адресном пространстве, посему компайлер, не знает как прописать обращение таким аксессором, а вот рекорды и объекты, они же получается физически вместе с self лежат, посему компайлер просто в смещение это преобразует...

[veniside]

компайлер, не знает как прописать обращение таким аксессором

да всё он знает, типа "в реализации геттера знаю, а тут не знаю". просто не очень красиво это выглядит и сильно перегружает синтаксис. А то и до такого можно дойти:

  property name: string read someObj.Items[3].LastName.Upper();

это всё-таки паскаль, язык для начинающих )

по-сути, проще опубликовать внутренний объект и не заморачиваться.

[phomm]

Ну да по идее, в реализации геттера он знает, хотя кто его знает )) может он строит вызовы через указатель на указатель, тем более там вмт, которая сама по себе сложная, а аксессор всё же простой переходничок обычно.
Ну а насчет перегружает синтаксис - с рекордами же "не перегружает", я ведь и в рекорде могу навертеть вложенную иерахию (кстати, надо бы проверить как получится ))))

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

А вот насчет исправили ошибку я малость не понял, хе2 не стоит, вживую не смогу лицезреть, но вот амбар-сайт говорит http://docwiki.embarcadero.com/RADSt...quired_(Delphi) может скрин найдётся, для удовлетворения любопытства моего, ибо качать и ставить как-то не резон )

[spamer]

Хочется пропертю отдельную, почти для каждого поля из обжтипа, на этом основная цель обжтипа и зиждется.

Видимо поиграться вам захотелось...время потратить...

TObjType = class(TObject);
name: string;
end;

Tobj = class(TObject)
  private
    FObjType: TObjType;
  public
    property ObjType: TObjType read FObjType; // либо же через GetObjType()
  end;