[феншуй] Interface и property

[zumm]

так можно в dispinterface

Можно пример?

[Vapaamies]

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

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

А можно изначальную задачу? Что нужно сделать в прикладном смысле?

[zumm]

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

ISomeInterface = interface(IUnknown)
['GUID']
  function GetSomeValue: TSomeType;
  procedure SetSomeValue(ASomeVariable: TSomeType);

  property SomeProperty: TSomeType read GetSomeValue write SetSomeValue;

  function SomeFunction: TSomeType;
end;

...

TBaseClass = class(TInterfacedObject)
protected
  FSomeVariable: TSomeType;

  function GetSomeValue: TSomeType;
  procedure SetSomeValue(ASomeVariable: TSomeType);
public
  property SomeProperty: TSomeType read GetSomeValue write SetSomeValue;
end;

...

TSomeClassOne = class(TBaseClass, ISomeInterface)
public
  function SomeFunction: TSomeType;
end;

TSomeClassTwo = class(TBaseClass, ISomeInterface)
public
  function SomeFunction: TSomeType;
end;

...

var
  SomeInterface: ISomeInterface;
  TemporaryFoo: TSomeType;

...

  case SomeTerms of
    isOne:
    begin
      SomeInterface := TSomeClassOne.Create;
    end;

    isTwo:
    begin
      SomeInterface := TSomeClassTwo.Create;
    end;
  end;

  with SomeInterface do
  begin
    SomeProperties := 'SomeValue';
    TemporaryFoo := SomeFunction;
  end;

Я решил проблему через TBaseClass, где реализовываю все туеву хучу геттеров/сеттеров. Но мне бы очень хотелось от него избавиться.

UDPATE:
Забыл добавить, что классы TSomeClassOne и TSomeClassTwo планируется вынести в DLL, конечно же.

[Vapaamies]

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

Забыл добавить, что классы TSomeClassOne и TSomeClassTwo планируется вынести в DLL, конечно же.

Простые свойства можно и через обычную запись (структуру в Си) передавать. Интерфейсы нужны, как правило, для управления чем-либо.

[3D Hunter]

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

[Stilet]

интерфейсы не поддерживают декларацию переменных.

Ну я тоже с этим не сталкивался ни разу. Да и не коробит пару лишних геттеров\сеттеров писнуть пусть даже пустых.