Property in Interface??

[shmia]

Das geht mit einer Methodenzuordnungsklausel:

Delphi-Quellcode:

ISample = interface
  function  getValue : Integer;
  procedure setValue(value : Integer);
  property Value : Integer read getValue write setValue;
end;

TIrgendwas = class(TInterfacedObject, ISample)
  function InternGetValue: Integer;
  procedure InternSetValue(value:Integer);

  function  ISample.getValue=InternGetValue;  // Methodenzuordnungsklausel
  procedure ISample.setValue=InternSetValue;  // dito
end;