Hallo,
ich erzeuge in meiner Anwendung eine Klasse 'PDInterface'. In dieser möchte ich alle für meine Anwendung benötigten Klassen registrieren.
Ist das möglich?
Delphi-Quellcode:
unit PDInterface;
...
constructor TPDInterface.Create(Owner: TComponent);
// Owner ist die Anwendung
var
I: Integer;
aClass: TPersistentClass;
ClassName:
String;
begin
FApplication:= Owner;
FDatabase:= TmyDatabase.Create(Owner);
For i:=0
to Length(FClassArray) -1
do begin
// Erzeugt Einträge aus den TabellenNamen der DB
FClassArray[TClassIndex(i)]:= Database.FTableArray[i];
// Ermittelt den aktuellen Tabellennamen und stellt ein'TPD' voran, welches dann den Namen
// der Klasse ergibt
ClassName:= '
TPD'+FClassArray[TClassIndex(i)];
// Casten auf persistente zu registrierende Klasse
aClass:= TPersistentClass(ClassName);
// Versuch die aktuelle Klasse zu registrieren
RegisterClass(aClass);
end // for
end;
Leider schlägt das Registrieren mit eine Schutzverletzung fehl.
Kann jemand helfen?