Hallo nochmal,
ich habe den Ansatz von Uwe nun mal so in meinem Testprojekt umgesetzt.
Dabei bin ich aber in die Falle gelaufen, dass der Aufruf des Konstruktors immer eine
Exception (EAbstractError) geworfen hat.
Ich hatte die Funktionen in der Parent Klasse mit
virtual; abstract; deklariert, da die Elternklasse nicht direkt instanziert werden kann und soll.
Die Elternklasse beinhaltet neben der Schnittstelle auch allgemeine Daten (deshalb habe ich eine Parent/Child Klassenstruktur angedacht anstatt einem Interface mit entsprechenden
(TInterfacedObjects, IMyDeviceType) Implementierungen der Schnittstelle).
Den DeviceHandler Ansatz habe ich wie hier von Uwe beschrieben implementiert.
Code:
type
TDeviceHandler = class
private
class function GetDeviceClass(dtDeviceType: TDeviceType): TParentDeviceClass; static;
public
class property DeviceClass[dtDeviceType: TDeviceType]: TParentDeviceClass read GetDeviceClass; default;
end;
implementation
uses
uDevType1, uDevType2, uDevType2;
class function TDeviceHandler.GetDeviceClass(dtDeviceType: TDeviceType): TParentDeviceClass;
begin
case dtDeviceType of
dtDeviceType1: Result := TDeviceType1;
dtDeviceType2: Result := TDeviceType2;
dtDeviceType3: Result := TDeviceType3;
end;
end;
Das heißt beim Aufruf von:
Code:
TDevicehandler[dtDeviceType1].create;
wird nun die
Exception entsprechend ausgelöst.
Ich habe dann die Definitionen der Elternklasse von
virtual;abstract; auf nur
virtual geändert und mittels Klassenvervollständigung die Rümpfe der Funktionen erzeugen lassen und schon gings...
Warum kommt aber dieser Abstraktionsfehler, obwohl ja eine Implementierung und nicht die Elternklasse instanziert wird?