Einzelnen Beitrag anzeigen

dpg123

Registriert seit: 13. Apr 2015
22 Beiträge
 
Turbo Delphi für Win32
 
#1

Zuweisung eines Methodenzeigers bei vererbten Interfaces

  Alt 21. Apr 2017, 13:03
Hallo liebes Forum,

entschuldigt den etwas kryptischen Titel. Konnte die Frage iwie nicht prägnanter in einem Satz zusammenfassen...

Ich habe folgendes Design, welches ich gerne benutzen würde:

Delphi-Quellcode:
  IInterfA = interface(IInterface)
  ['{47B0ED79-41C2-4F2F-BA29-521D6B9872FB}']

    function exec1(): string;

  end;

  IInterfB = interface(IInterfA)
  ['{47B0ED79-41C2-4F2F-BA29-521D6B9872FB}']

    function exec2(): string;

  end;


  TImplB = class(TInterfacedObject,IInterfB)

    function exec1(): string;

    function exec2(): string;

  end;


  MInterfA = function(): IInterfA of object;

  MInterfB = function(): IInterfB of object;


  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  public

    getInterfA: MInterfA;

  published

    function factoryB(): IInterfB;

  end;
Aufgabe, Frage, Diskussion ist jetzt die Zuweisung der Function factoryB() zur Methodenzeiger-Variable getInterfA.

Eine Möglichkeit für die Zuweisung habe ich gefunden:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  lB: MInterfB;

begin

  lB := self.factoryB;

  Self.getInterfA := MInterfA( lB );

  ShowMessage(self.getInterfA.exec1());

end;

function TForm1.factoryB: IInterfB;
begin
  result := TImplB.create();
end;

{ TImplB }

function TImplB.exec1: string;
begin
  Result := 'Hello 1';
end;

function TImplB.exec2: string;
begin
  Result := 'Hello 2';
end;
Geht die Zuweisung auch direkt, ohne die Variable lB und damit auch ohne Anlegen des Typs MInterfB?

Das showmessage hat gemacht was es soll, aber tappe ich mit dem Design in iwelche Fallen? Gibt es Situation, in denen dieser Downcast Probleme macht? Ist es überhaupt gutes Design? Wie könnte man es eleganter lösen?

Dank und Gruß
  Mit Zitat antworten Zitat