Hallo!
Ich beschäftige mich im Moment mit den BPL- Packages, sowie dem dynamischen Einbinden von in BPLs ausgelagerte Klassen.
Dazu habe ich jetzt eine Frage, bei der ich absolut nicht weiterkomme.
Ich habe in meinem Hauptprogramm eine Klasse:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| type
TCustomConnection = class(TComponent)
private
Function GetDescription: string;
public
Property Description: string read GetDescription;
end;
implementation
function GetDescription: string;
begin
Result := 'Das ist die Basisklasse';
end; |
So und mein Ziel ist es jetzt, von TCustomConnection abgeleitete Klassen in BPLs zu packen. Dabei führen die abgeleiteten Klassen keine neuen Methoden oder Properties ein, sondern überschreiben nur bereits in der TCustomConnection bekannte Methoden und Properties. Wenn ich jetzt im Hauptprogramm (was selber nur die Klasse TCustomConnection kennt) die entsprechende abgeleitete BPL-Klasse lade, möchte ich die Methoden der Abgeleiteten Klasse ausführen, nicht die von TCustomConnection.
Im Hauptprogramm hole ich mir die Klasse auf folgende Weise, wobei die BPL zu dem Zeitpunkt bereits erfolgreich in den Speicher geladen ist.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| Procedure LoadClass(ClassName: string; var Connection: TCustomConnection);
var AClass: TPersistenClass;
begin
AClass := GetClass(HelpComponent.ConnectionComponentName);
Connection := TConnectionClass(AClass).Create(self) as TCustomConnection; end; |
Das Problem leigt jetzt ganz einfach darin, dass ich für Connection.Description 'Dies ist die Basisklasse' angezeigt bekomme und nicht den Text, den ich in der Nachfolgeklasse vorgebe.
Auf welchem Weg komme ich aber da hin? Das Problem liegt halt darin, dass das Hauptprogramm selber die abgeleitete Klasse zur Entwurfszeit nicht kennt. Ich kann daher hierarchisch gesehen höchstens bis TCustomConnection gehen, oder?
Vielen Dank und beste Grüße
alias5000
)