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ß