Umleitung einer Interface-Methode ?

[himitsu]

Ich weiß, daß es irgendwie ging und hatte es auch schon erfolgreich gemacht, aber ich bekomm es nicht mehr zusammen.

Wie kann ich also die Interface-Methode auf eine andersnamige Objekt-Methode umleiten?

Delphi-Quellcode:

type
  INotifier = interface
    procedure Modified;
  end;

  TEditor = class(TInterfacedObject, INotifier, IEditor)
    procedure INotifier.Modified = MyOtherModified;
  end;

procedure TEditor.MyOtherModified;
begin
end;

Der Grund ist einfach, daß 2 Interfaces eine gleichnamige Methode besitzen, aber ich sie dennoch gern im selben Objekt hätte.

Delphi-Quellcode:

type
  INotifier = interface
    procedure Modified;
  end;
  IEditor = interface
    procedure Modified;
  end;

  TEditor = class(TInterfacedObject, INotifier, IEditor)
    procedure INotifier.Modified = MyOtherModified;
    procedure Modified;
  end;

procedure TEditor.MyOtherModified;
begin
end;

procedure TEditor.Modified;
begin
end;