Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Uwe Raabe,
8. Sep 2014
Ist zwar auch etwas gekünstelt, aber probieren wir es mal hiermit (Günther's Beispiel ist zugegeben etwas lustiger):
type
TDumpToJSON = class
private
FInstance: TObject;
protected
function DumpToJSON: string;
property Instance: TObject read FInstance;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Uwe Raabe,
8. Sep 2014
Solche Doppelimplementationen von Interfaces kann man dann wiederum mit einer Delegation auf eine andere implementierende Klasse auflösen (siehe reserviertes Wort implements).
BTW, könnte es sein, daß du in deinen abgeleiteten Klassen das override unterschlagen hast?
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Uwe Raabe,
8. Sep 2014
Hast du schon mal daran gedacht, die Funktionalität von TESPBase in zwei Interfaces zu verlagern? Damit brauchst du nicht mehr die gemeinsame Basisklasse. Das befreit ungemein...