Hallo,
ich habe nicht viel Erfahrung mit TInterfacedObjects. Gibts da was, was ich wissen müsste?
Folgendes Problem, ich habe habe eine Ableitung von TInterfacedobject und eine Ableitung der Ableitung.
Ungefähr dieses Schema:
Delphi-Quellcode:
TMyBaseObject = class;
TMyBaseClass = class of TMyBaseObject;
TMyBaseObject = class( TInterfacedObject, TMyInterface );
....
public
Constructor Create;
Destructor Destroy; override;
End;
TMyChildObject = class( TMyBaseObject );
...
public
Constructor Create;
Destructor Destroy; override;
Procedure DoSomething;
End;
...
Constructor TMyChildObject.Create;
Begin
Inherited;
DoSomething;
End;
Soweit, so schlecht. Nun habe ich eine TClasslist, in der ich eine Reihe ( derzeit nur 1 ) Ableitungen von TMyBaseObject ( in diesem Fall TMyChildObject ) verwalte. Über diese TClasslist versuche ich TMyChildObject zu erstellen.
Delphi-Quellcode:
Function GetInterface( i: Integer ): TMyInterface;
Begin
Result := TMyBaseClass( Classlist[i] ).Create
End;
Das funktioniert auch soweit prima. Er erstellt das richtige Objekt, alle funktionen sind verfügbar. Das einzige Problem, das ich habe, ist, dass er in der Funktion GetInterface in den Constructor von TMyBaseObject läuft und nicht ( wie eigentlich von mir erwartet ) in den von TMyChildObjekt. Alles andere funktioniert wie gesagt wunderbar. Selbst wenn ich im Constructor von TMyBaseObject eine Funktion aufrufe, die die Ableitung auch bietet, läuft das Programm vom Constructor der Basis in die Funktion der richtigen Ableitung.
Wo liegt mein Fehler?
//edit:
Achso, fast vergessen und könnte auch ein Grund sein:
TMyChildObject ist in einer anderen
Unit deklariert als TMyBaseObject. Die Classlist befindet sich allerdings in der
Unit von TMyBaseObject. Die
Unit von TMyChildObject ist nicht in der uses von TMyBaseObject.
//edit²: override ergänzt. ( s. Bernhard Geyer )