Doch, das funktioniert auch.
Ersetze mal FormCreate (und die
Unit u_Voegel musst Du natürlich noch einbinden).
Dann siehst Du, dass Storch.Flieg und auch IFlieg unterstützt wird.
Da musst Du irgend einen anderen Fehler drin haben.
Durch die Vererbung kennt die neue Klasse auch alles, was die Basisklasse kennt.
(Wenn man dann Methoden überschreiben will, muss man mit virtual und override arbeiten.)
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
R: IReader;
S: ISchwimm;
I: IInterface;
//TList<ISchwimm>
Storch: TStorch;
begin
R := TXMLReader.Create;
Read(R);
R := TCSVReader.Create;
Read(R);
//
// S := TFactory.GetNewEnte;
// S.Schwimm;
// S := TFactory.GetNewBoot;
// S.Schwimm;
I := TFactory.GetNewEnte;
if Supports(I, ISchwimm) then
(I as ISchwimm).Schwimm;
I := TFactory.GetNewAdler;
if Supports(I, ISchwimm) then
(I as ISchwimm).Schwimm;
I := TFactory.GetNewEnte;
if Supports(I, ISchwimm) then
(I as ISchwimm).Schwimm;
I := TFactory.GetNewAdler;
if Supports(I, IFlieg) then
(I as IFlieg).Flieg;
I := TFactory.GetNewEnte;
if Supports(I, IFlieg) then
(I as IFlieg).Flieg;
Storch := TStorch.Create;
Storch.Flieg;
if Supports(Storch, IFlieg) then
ShowMessage('Flieg');
end;
Zusätzliche Anmerkung:
Etwas komplizierter wird es bei Vererbungen von Interfaces.
Wenn man ein InterfaceA hat und davon InterfaceB ableitet, und dann eine Klasse deklariert:
class TX(TInterfacedObject, InterfaceB),
dann liefert Supports(X, InterfaceA) false.
Um ein Supports zu ermöglichen, muss man das der Klasse AUSDRÜCKLICH zuweisen:
class TX(TInterfacedObject, InterfaceB, InterfaceA)