Abgeleitete Klassen auf einzelne Units verteilen

[BastiFantasti]

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?

[BastiFantasti]

ok ok,

der Fehler saß vor dem Bildschirm

Ich habe in den Unterklassen bei den jeweiligen Implementierungen der Elternklasse das override; vergessen.
Daher der Abstraktionsfehler.

D.h. ich kann die Elternklasse nun mit virtual; abstract; deklarieren und die Childklassen entsprechend mittels des Handlers instanzieren.