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;