[феншуй] Interface и property

[zumm]

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

Собственно, вопрос: как при объявлении интерфейса обойтись без get/set функций для свойств?

Что есть:

ISomeInterface = interface(IUnknown)
  function GetValue: TSomeType;
  procedure SetValue(SomeVar: TSomeType);

  property SomeProperty: TSomeType read GetValue write SetValue;
end;

Что хочется:

ISomeInterface = interface(IUnknown)
  property SomeProperty: TSomeType;
end;

Не, ну ведь не дело для 5 свойств писать 10 велосипедных функций.

[Пепел Феникса]

не припомню в Делфи автосвойств.

придется видимо копипастить эти моменты.

[zumm]

придется видимо копипастить эти моменты.

Мне как то это совсем не по душе. И ведь ладно бы у меня в классах реализующих эти интерфейсы свойства читались/писались через геттеры/сеттеры, так ведь нет, они , всего то, ссылаются на приватные переменные.

TSomeClass = class(TComponent, ISomeInterface)
private
  FSomeVar: TSomeType;
public
  property SomeProperty: TSomeType read FSomeVar write FSomeVar;
end;

Вот и зачем мне тут весь этот огород с get/set?

[Пепел Феникса]

короче того синтаксиса что вы привели в последнем посту, я ничего не знаю.

[Vapaamies]

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

Не, ну ведь не дело для 5 свойств писать 10 велосипедных функций.

Так интерфейсы COM именно для этого и придуманы, и даже выдавались в свое время за революционо новый подход к программированию.

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

[Stilet]

ISomeInterface = interface(IUnknown)
property SomeProperty: TSomeType;
end;

Как-то я не пойму, а как тогда компилятор поймет что с этим свойством делать при обращении к нему?

[Человек_Борща]

Как-то я не пойму, а как тогда компилятор поймет что с этим свойством делать при обращении к нему?

Оно станет простой переменной.

ТС, если хотите property без Get/Set, тогда вам нужен просто var, он ничем не отличается от

property SomeProperty: TSomeType;

Свойства и задуманы для того чтобы запретить запись, или же что-то сделать с данными перед записью/чтением в/из защищенной переменной.

[Аватар]

тогда вам нужен просто var

Не просто var, а переменная в public секции. Что есть не фонтан

[zumm]

Stilet, да, похоже что вопрос и правда глупый, точек чтения/записи то нету. Но, может быть можно как то сделать хотя бы одну точку для все переменных? Черег дженерики, например.

Человек_Борща, насколько мне известно, интерфейсы не поддерживают декларацию переменных.

[Человек_Борща]

property SomeProperty: TSomeType;

так можно в dispinterface