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;

[Hawkeye219]

Hi,

wenn ich mich richtig erinnere, muss die Methodenzuordnungsklausel zusätzlich aufgeführt werden:

Delphi-Quellcode:

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

Gruß Hawkeye

[himitsu]

Zitat von Hawkeye219:

zusätzlich

Ahhhhh, jetzt wo du es sagst, fällt es mir wie Schuppen von den Augen.

Danke.

[uligerhardt]

Zitat von himitsu:

Zitat von Hawkeye219:

zusätzlich

Ahhhhh, jetzt wo du es sagst, fällt es mir wie Schuppen von den Augen.

Danke.

Sagt ja eigentlich auch der Compiler:

Zitat:

[DCC Fehler] Unit1.pas(55): E2003 Undefinierter Bezeichner: 'MyOtherModified'

[himitsu]

Ja, und mir war so, als wenn der Compiler dieses

Code:

TEditor = class(TInterfacedObject, INotifier, IEditor)
  [b][color=#ff0000]procedure [/color][/b]INotifier.Modified[b][color=#ff0000] = MyOtherModified;[/color][/b]
end;

nicht "richtig" findet und das dies schon als Definition reichen sollte.