Delphi-Quellcode:
type
TVogel = class(TInterfacedObject, IFlieg)
private
public
procedure Flieg;
end;
TStorch = class(TVogel)
private
FSchnabellaenge: Integer;
procedure SetSchnabellaenge(const Value: Integer);
public
property Schnabellaenge: Integer read FSchnabellaenge write SetSchnabellaenge;
end;
TAdler = class(TVogel)
private
FDioptrien: Integer;
procedure SetDioptrien(const Value: Integer);
public
property Dioptrien: Integer read FDioptrien write SetDioptrien;
end;
TEnte = class(TVogel, ISchwimm)
private
FKalorien: Integer;
procedure SetKalorien(const Value: Integer);
procedure Schwimm;
public
property Kalorien: Integer read FKalorien write SetKalorien;
end;
implementation
{ TStorch }
procedure TStorch.SetSchnabellaenge(const Value: Integer);
begin
FSchnabellaenge := Value;
end;
{ TAdler }
procedure TAdler.SetDioptrien(const Value: Integer);
begin
FDioptrien := Value;
end;
{ TEnte }
procedure TEnte.Schwimm;
begin
end;
procedure TEnte.SetKalorien(const Value: Integer);
begin
end;
{ TVogel }
procedure TVogel.Flieg;
begin
end;
end.
also weil ich die procedure Flieg bereits bei TVogel (ganz unten) erstellt habe, ist sie damit auch Bestandteil von TAdler und TStorch, ohne dass ich sie dort nochmals erstellen muss.